I am stuck in listview subitems format, to show in decimal.
I have the value in access table with "4500", but i need listview to show as "4500.00".
I designed access table with Format = Standard, Decimal places = 2, but I could not able make it.
Is there any way to get through this?
vb kid
I have the value in access table with "4500", but i need listview to show as "4500.00".
I designed access table with Format = Standard, Decimal places = 2, but I could not able make it.
Is there any way to get through this?
vb kid
Code:
Private Sub Load_Indi_Payroll()
Dim lvItem As MSComctlLib.ListItem
'On Error GoTo err_trap
If RS.State = adStateOpen Then
RS.Close
End If
ListView1.ListItems.Clear
ListView1.SmallIcons = ImageList1r
ListView1.Icons = ImageList1r
ListView1.ColumnHeaders.Clear
ListView1.ColumnHeaders.Add , , "Emp.No", 830
ListView1.ColumnHeaders.Add , , "Name", 2500
ListView1.ColumnHeaders.Add , , "Month", 1600
ListView1.ColumnHeaders.Add , , "Basic", 1150
ListView1.ColumnHeaders.Add , , "OT Hrs", 950
ListView1.ColumnHeaders.Add , , "OT Amnt.", 1000
ListView1.ColumnHeaders.Add , , "FA Amnt.", 1000
ListView1.ColumnHeaders.Add , , "Incentive", 1000
ListView1.ColumnHeaders.Add , , "Arrears", 1000
ListView1.ColumnHeaders.Add , , "Gross", 1500
ListView1.ColumnHeaders.Add , , "Advance", 1000
ListView1.ColumnHeaders.Add , , "GOSI", 1000
ListView1.ColumnHeaders.Add , , "Other", 1000
ListView1.ColumnHeaders.Add , , "Deduction", 1250
ListView1.ColumnHeaders.Add , , "Net", 1500
ListView1.ColumnHeaders.Add , , "Remarks", 3500
' ListView1.ColumnHeaders.Item(15).Width = 18780 - Me.ListView1.Width
ListView1.ColumnHeaders.Item(14).Alignment = lvwColumnRight
ListView1.ColumnHeaders.Item(13).Alignment = lvwColumnRight
ListView1.ColumnHeaders.Item(12).Alignment = lvwColumnRight
ListView1.ColumnHeaders.Item(11).Alignment = lvwColumnRight
ListView1.ColumnHeaders.Item(10).Alignment = lvwColumnRight
ListView1.ColumnHeaders.Item(9).Alignment = lvwColumnRight
ListView1.ColumnHeaders.Item(8).Alignment = lvwColumnRight
ListView1.ColumnHeaders.Item(7).Alignment = lvwColumnRight
ListView1.ColumnHeaders.Item(6).Alignment = lvwColumnRight
ListView1.ColumnHeaders.Item(5).Alignment = lvwColumnRight
ListView1.ColumnHeaders.Item(4).Alignment = lvwColumnRight
ListView1.ColumnHeaders.Item(3).Alignment = lvwColumnRight
ListView1.ColumnHeaders.Item(2).Alignment = lvwColumnLeft
RS.Open "Select * from tblPayroll where Year(dDate)='" & Year(Me.Indi.Value) & "' And EM_ID =" & Val(Me.cboID.Text) & " ORDER BY tblPayroll.EM_ID;", cn, adOpenKeyset, adLockPessimistic
'RS.Open "Select * from tblPayroll where Month(dDate)='" & Month(Me.DTPick.Value) & "' And Year(dDate)='" & Year(Me.DTPick.Value) & "' ORDER BY tblPayroll.EM_ID;", cn, adOpenKeyset, adLockPessimistic
Do While RS.EOF = False
Set lvItem = ListView1.ListItems.Add(, , RS.Fields("EM_ID").Value, , 1)
lvItem.SubItems(1) = RS.Fields("EM_NAME").Value
lvItem.SubItems(2) = RS.Fields("dDate").Value
lvItem.SubItems(3) = RS.Fields("Basic").Value
lvItem.SubItems(4) = RS.Fields("OTHours").Value
lvItem.SubItems(5) = RS.Fields("OTAmnt").Value
lvItem.SubItems(6) = RS.Fields("FAAmnt").Value
lvItem.SubItems(7) = RS.Fields("AllIncent").Value
lvItem.SubItems(8) = RS.Fields("OtherIncent").Value
lvItem.SubItems(9) = RS.Fields("Gross").Value
lvItem.SubItems(10) = RS.Fields("Advance").Value
lvItem.SubItems(11) = RS.Fields("GOSI").Value
lvItem.SubItems(12) = RS.Fields("otherdeduct").Value
lvItem.SubItems(13) = RS.Fields("Deduction").Value
lvItem.SubItems(14) = RS.Fields("Net").Value
' lvItem.SubItems(15) = RS.Fields("Remarks").Value
lvItem.ListSubItems(8).Bold = True
lvItem.ListSubItems(8).ForeColor = vbBlue
lvItem.ListSubItems(12).Bold = True
lvItem.ListSubItems(12).ForeColor = vbBlue
lvItem.ListSubItems(13).Bold = True
lvItem.ListSubItems(13).ForeColor = vbBlack
' lvItem.ListSubItems(1).Bold = True
lvItem.ListSubItems(1).ForeColor = vbBlue
RS.MoveNext
Loop
Exit Sub
'err_trap:
'MsgBox err.Description, vbCritical, "Error"
Set RS = Nothing
End Sub