longmatch
Programmer
- Nov 1, 2001
- 406
I am writing a program to present data to end user. How can I know that which field is empty? see my code below:If Not rsReport.EOF Then
strTable = "<TABLE align = ""center"" BORDER=""1"" CELLSPACING=""3"" CELLPADDING=""3"">"
strTable = strTable & "<TR>"
strTable = strTable & " <TH bgcolor='#b0c4de'>Resident Name</TH>"
strTable = strTable & " <TH bgcolor='#b0c4de'>Submit Date</TH>"
strTable = strTable & "</TR>"
Do While Not rsReport.EOF
strTable = strTable & "<TR ALIGN=CENTER>"
strTable = strTable & " <TD>" & rsReport("Resident"
& "</TD>"
if rsReport("tDay"
= empty then
rsReport("tday"
= "not submitted"
end if
strTable = strTable & " <TD>" & rsReport("tDay"
& "</TD>"
strTable = strTable & "</TR>"
rsReport.MoveNext
Loop
end if
Thanks
Haijun
strTable = "<TABLE align = ""center"" BORDER=""1"" CELLSPACING=""3"" CELLPADDING=""3"">"
strTable = strTable & "<TR>"
strTable = strTable & " <TH bgcolor='#b0c4de'>Resident Name</TH>"
strTable = strTable & " <TH bgcolor='#b0c4de'>Submit Date</TH>"
strTable = strTable & "</TR>"
Do While Not rsReport.EOF
strTable = strTable & "<TR ALIGN=CENTER>"
strTable = strTable & " <TD>" & rsReport("Resident"
if rsReport("tDay"
rsReport("tday"
end if
strTable = strTable & " <TD>" & rsReport("tDay"
strTable = strTable & "</TR>"
rsReport.MoveNext
Loop
end if
Thanks
Haijun