hey..
is there any controls or code to highlight a particular column with different colour?
my code to load listview:
regrd
vbkid
is there any controls or code to highlight a particular column with different colour?
my code to load listview:
Code:
Private Sub Init_Data()
Dim lvItem As MSComctlLib.ListItem
On Error GoTo err_trap
If RS.State = adStateOpen Then
RS.Close
End If
lvlEmpInfo.ListItems.Clear
'lvlEmpInfo.SmallIcons = ImageList5
'lvlEmpInfo.Icons = ImageList5
lvlEmpInfo.ColumnHeaders.Clear '.ColumnHeaders.Clear ' Clear header
lvlEmpInfo.ColumnHeaders.Add , , "Emp.No", 850 ' Add header name n width
lvlEmpInfo.ColumnHeaders.Add , , "Employee Name", 2000 ' Add header name n width
lvlEmpInfo.ColumnHeaders.Add , , "OT Salary", 800 ' Add header name n width
lvlEmpInfo.ColumnHeaders.Add , , "Date Hired", 1050
lvlEmpInfo.ColumnHeaders.Add , , "Basic", 800
lvlEmpInfo.ColumnHeaders.Add , , "OTRate", 800
lvlEmpInfo.ColumnHeaders.Add , , "OTHours", 800
lvlEmpInfo.ColumnHeaders.Add , , "Films", 800
lvlEmpInfo.ColumnHeaders.Add , , "FilmRate", 800
lvlEmpInfo.ColumnHeaders.Add , , "OTRate", 800
lvlEmpInfo.ColumnHeaders.Add , , "OTHours", 800
lvlEmpInfo.ColumnHeaders.Add , , "Films", 800
lvlEmpInfo.ColumnHeaders.Add , , "FilmRate", 800
RS.Open "Select * from tblEmp", cn, adOpenKeyset, adLockPessimistic ' where Month(dDate)='" & Month(Me.DTPicker1.Value) & "' And Year(dDate)='" & Year(Me.DTPicker1.Value) & "' ORDER BY tblPayroll.EM_ID;", cn, adOpenKeyset, adLockPessimistic
Do While RS.EOF = False
Set lvItem = lvlEmpInfo.ListItems.Add(, , RS.Fields("EM_ID").Value) ', , 1)
lvItem.SubItems(1) = RS.Fields("NAME").Value
lvItem.SubItems(2) = RS.Fields("IQAMA").Value
lvItem.SubItems(3) = RS.Fields("Category").Value
lvItem.SubItems(4) = RS.Fields("SiteAllow").Value
lvItem.SubItems(5) = RS.Fields("Nationality").Value
lvItem.SubItems(6) = RS.Fields("Status").Value
lvItem.SubItems(7) = RS.Fields("Mobile").Value
lvItem.SubItems(8) = RS.Fields("RSO").Value
'lvItem.ListSubItems(1).Bold = True
'lvItem.ListSubItems(5).Bold = True
lvItem.ListSubItems(5).ForeColor = vbRed
lvItem.ListSubItems(1).ForeColor = vbRed '.Bold = True
RS.MoveNext
Loop
Exit Sub
err_trap:
MsgBox err.Description, vbCritical, "Error"
Set RS = Nothing
'cboEmpID.SetFocus
End Subvbkid