Advanced Search

view all data and partial data for listview

/ Published in: VB.NET
Save to your folder(s)

Expand | Embed | Plain Text

Copy this code and paste it in your HTML 
  1. Private Sub InitLSV()
  2.         Dim AllLotRow As DataRow
  3.         daLot.Fill(dsLot)
  4.         frmTenant.daTenant.Fill(frmTenant.dsTenant)
  5.  
  6.         For i As Integer = 0 To dsLot.LOT.Rows.Count - 1 Step 1
  7.             AllLotRow = dsLot.LOT.Rows(i)
  8.             AddNewLVRow(lsvLot, AllLotRow)
  9.  
  10.             If DateTime.Compare(DateTime.ParseExact(AllLotRow("DueDate"), My.Settings.DateFormat, iCultureInfo), Date.Now()) < 0 Then
  11.                 lsvLot.Items.Item(lsvLot.Items.Count - 1).BackColor = Color.Pink
  12.             End If
  13.         Next
  14.     End Sub

Report this snippet


Comments

RSS Icon Subscribe to comments

You need to login to post a comment.