Return to Snippet

Revision: 53399
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