ListView1.Refre sh
FieldCount = Adodc1.Recordse t.Fields.Count - 1
For FieldLoopNo = 0 To FieldCount
FieldStringLeng ht = Len(Adodc1.Reco rdset.Fields(Fi eldLoopNo).Name ) + Int(10)
Set Column_Header = ListView1.Colum nHeaders.Add(, , Adodc1.Recordse t.Fields(FieldL oopNo).Name, 2000)
Next FieldLoopNo
While Not Adodc1.Recordse t.EOF
On Error Resume Next
Set listitem = ListView1.ListI tems.Add(, , Adodc1.Recordse t(0))
For FieldLoopNo = 1 To FieldCount
On Error Resume Next
listitem.SubIte ms(FieldLoopNo) = Left$(Adodc1.Re cordset(FieldLo opNo), 9) 'this is the date and time that i trim so that it only display the date
listitem.SubIte ms(3) = Right$(Adodc1.R ecordset(FieldL oopNo), 11)'this is also the date and time that i trim for it to show only the time
i don't know the codes for it to loop so that it only show the first log in the same date and the last log of the same date and input it to the next column tnx...
FieldCount = Adodc1.Recordse t.Fields.Count - 1
For FieldLoopNo = 0 To FieldCount
FieldStringLeng ht = Len(Adodc1.Reco rdset.Fields(Fi eldLoopNo).Name ) + Int(10)
Set Column_Header = ListView1.Colum nHeaders.Add(, , Adodc1.Recordse t.Fields(FieldL oopNo).Name, 2000)
Next FieldLoopNo
While Not Adodc1.Recordse t.EOF
On Error Resume Next
Set listitem = ListView1.ListI tems.Add(, , Adodc1.Recordse t(0))
For FieldLoopNo = 1 To FieldCount
On Error Resume Next
listitem.SubIte ms(FieldLoopNo) = Left$(Adodc1.Re cordset(FieldLo opNo), 9) 'this is the date and time that i trim so that it only display the date
listitem.SubIte ms(3) = Right$(Adodc1.R ecordset(FieldL oopNo), 11)'this is also the date and time that i trim for it to show only the time
i don't know the codes for it to loop so that it only show the first log in the same date and the last log of the same date and input it to the next column tnx...