Public
theDataSet As
DataSet Private Sub Page_Load (ByVal sender As System.Object, ByVal e As System.
EventArgs
)
Handles MyBase
.Load If Not IsPostBack
Then DataGrid1.DataSource = theDataset ' populate Dataset from Call to Web Service DataGrid1.
DataBind
()
End If End Sub Private Sub DataGrid1_ItemCreated(ByVal sender As Object, ByVal e As _ DataGridItemEventArgs)
Handles DataGrid1.ItemCreated If (e.Item.ItemIndex <> -1)
Then Dim strTest As String = theDataSet.Tables(0).Rows(e.Item.ItemIndex).Item(7)
If ((InStr(1, strTest, "NC") <> 0)
Or
InStr(1, strTest, "ICE") <> 0) Then e.Item.BackColor = System.Drawing.Color.LightPink
End
End If
End Sub
| Enquiry | |
| Contact us | ||
|
||