Use a while loop to get the value of datareader and encapsulate it into a positive table

Objective: To encapsulate a page table and return it to the request in the form of a string

'Write the query result to the table for Popup display.

Dim temptable as string = "<Table border = '0' cellpadding = '0' cellspacing = '1' style = 'background-color: # c0ffff; width: 100%; '>"
'Number of cyclic rows
While dr. Read ()
'Number of cyclic Columns

For I as integer = 0 to dr. fieldcount-1
Dim value as string

If system. Convert. isdbnull (dr. getvalue (I) then

value = "null"
else
'retrieve the value of this column.
value = dr. getvalue (I). tostring

end if
temptable = temptable + " "
' name of the Column Retrieved
temptable = temptable +" "+ dr. getname (I ). tostring () + ""
temptable = temptable + "" + value + ""
temptable = temptable + ""
next

End while
Dr. Close ()
Conn. Close ()

Temptable + = "<Table>"