Revision: 53399
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
at November 22, 2011 05:13 by javageget
Initial Code
Private Sub InitLSV()
Dim AllLotRow As DataRow
daLot.Fill(dsLot)
frmTenant.daTenant.Fill(frmTenant.dsTenant)
For i As Integer = 0 To dsLot.LOT.Rows.Count - 1 Step 1
AllLotRow = dsLot.LOT.Rows(i)
AddNewLVRow(lsvLot, AllLotRow)
If DateTime.Compare(DateTime.ParseExact(AllLotRow("DueDate"), My.Settings.DateFormat, iCultureInfo), Date.Now()) < 0 Then
lsvLot.Items.Item(lsvLot.Items.Count - 1).BackColor = Color.Pink
End If
Next
End Sub
Initial URL
Initial Description
Initial Title
view all data and partial data for listview
Initial Tags
Initial Language
VB.NET