-----------------------------------------------------------
New Message on BDOTNET
-----------------------------------------------------------
From: Am2pm4
Message 1 in Discussion
Hi I need to highlight a particular cell of HTML on server side . I ma generating the
HTML Table as follows
Dim htmlrow As HtmlTableRow
mytab.Border = 1
mytab.BorderColor = "blue"
Dim i As Integer = 0
Dim j As Integer
Dim htmltablecell As HtmlTableCell
Dim drrow As DataRow
Dim dccolumn As DataColumn
Dim drhtml As HtmlTableRow
Dim dchtml As HtmlTableCell
Dim htmlInpText As HtmlInputHidden
htmlrow = New HtmlTableRow
htmltablecell = New HtmlTableCell
htmltablecell.InnerText = "CF"
htmlrow.Controls.Add(htmltablecell)
For Each dccolumn In DS.Tables("tbl_DocumentType").Columns
htmltablecell = New HtmlTableCell
If dccolumn.ColumnName.ToString() = "JobSeq" Then
htmltablecell.InnerText = "JobSeq"
End If
If dccolumn.ColumnName.ToString() = "PartNbr" Then
htmltablecell.InnerText = "PartNbr"
End If
If dccolumn.ColumnName.ToString() = "Slot" Then
htmltablecell.InnerText = "Slot"
End If
htmlrow.Controls.Add(htmltablecell)
Next
mytab.Controls.Add(htmlrow)
For Each drrow In DS.Tables("tbl_DocumentType").Rows
htmlrow = New HtmlTableRow
htmlrow.ID = "R" & i.ToString()
htmltablecell = New HtmlTableCell
htmltablecell.BorderColor = "blue"
'htmltablecell.InnerHtml = "<b>X</b>"
htmltablecell.ID = "X" & i.ToString()
htmlrow.Controls.Add(htmltablecell)
'----------Compare the String coming from the Client Side
For Each dccolumn In DS.Tables("tbl_DocumentType").Columns
'----------For the Row Header
If dccolumn.ColumnName.ToString() = "PartNbr" Then
htmltablecell = New HtmlTableCell
htmltablecell.InnerHtml = "<I>" & drrow(dccolumn) & "</I>"
htmlInpText = New HtmlInputHidden
htmlInpText.ID = "P" & i.ToString()
htmlInpText.Value = drrow(dccolumn)
htmltablecell.Controls.Add(htmlInpText)
htmlrow.Controls.Add(htmltablecell)
End If
If dccolumn.ColumnName.ToString() = "" Then
htmltablecell = New HtmlTableCell
htmltablecell.ID = "C" & i.ToString()
htmltablecell.InnerText = drrow(dccolumn)
htmlrow.Controls.Add(htmltablecell)
End If
If dccolumn.ColumnName.ToString() = "JobSeq" Then
htmltablecell = New HtmlTableCell
htmltablecell.ID = "J" & i.ToString()
htmltablecell.InnerText = drrow(dccolumn)
'-------Hiding the Class property
htmlrow.Controls.Add(htmltablecell)
End If
If dccolumn.ColumnName.ToString() = "Slot" Then
htmltablecell = New HtmlTableCell
htmltablecell.ID = "S" & i.ToString()
htmltablecell.InnerText = drrow(dccolumn)
htmlrow.Controls.Add(htmltablecell)
End If
Next
mytab.Controls.Add(htmlrow)
i = i + 1
Next
-----------------------------------------------------------
To stop getting this e-mail, or change how often it arrives, go to your E-mail
Settings.
http://groups.msn.com/BDotNet/_emailsettings.msnw
Need help? If you've forgotten your password, please go to Passport Member Services.
http://groups.msn.com/_passportredir.msnw?ppmprop=help
For other questions or feedback, go to our Contact Us page.
http://groups.msn.com/contact
If you do not want to receive future e-mail from this MSN group, or if you received
this message by mistake, please click the "Remove" link below. On the pre-addressed
e-mail message that opens, simply click "Send". Your e-mail address will be deleted
from this group's mailing list.
mailto:[EMAIL PROTECTED]
