Ini Saya sertakan module yg saya buat, sub IsiHeaderView bisa aja digabung
dg subIsiListView.semoga bermanfaat.jg lupa kl ad aide lain kirim balik ya..
Sub IsiHeaderView(ByRef sRS As Recordset, LV As ListView)
' mengisi collum header listview dari suatu record set
' programmer : asep muhidin ([EMAIL PROTECTED])
Dim i, JmlField As Integer
'set listview
JmlField = sRS.Fields.Count
LV.ColumnHeaders.Clear
LV.View = lvwReport
'set headers listview
For i = 0 To JmlField - 1
LV.ColumnHeaders.Add , , sRS.Fields(i).Name
Next i
End Sub
Sub IsiListView(ByRef sRS As Recordset, LV As ListView)
' mengisi listview dari suatu record set
' programmer : asep muhidin
Dim i, JmlField As Integer
Dim RsItems As ListItem
'set listview
JmlField = sRS.Fields.Count
LV.Visible = False
LV.ColumnHeaders.Clear
LV.ListItems.Clear
LV.View = lvwReport
'set headers listview
For i = 0 To JmlField - 1
LV.ColumnHeaders.Add , , sRS.Fields(i).Name
Next i
'isi listview
If sRS.EOF Then
MsgBox "Data tidak ada"
LV.Visible = True
Exit Sub
End If
sRS.MoveFirst
Do While Not sRS.EOF
Set RsItems = LV.ListItems.Add(, , sRS.Fields(0).Value)
RsItems.SmallIcon = 1
For i = 1 To JmlField - 1
If IsNull(sRS.Fields(i).Value) Then
RsItems.SubItems(i) = ""
Else
If IsNumeric(sRS.Fields(i).Value) Then
RsItems.SubItems(i) = Format(sRS.Fields(i).Value,
"#,###")
'LV.ColumnHeaders.Item(i + 1).Alignment = lvwColumnRight
Else
RsItems.SubItems(i) = sRS.Fields(i).Value
End If
End If
Next i
sRS.MoveNext
Loop
lvAutosizeControl LV
LV.Visible = True
sRS.Close
End Sub
Sub lvAutosizeControl(LV As ListView)
Dim col2adjust As Long
For col2adjust = 0 To LV.ColumnHeaders.Count - 1
Call SendMessage(LV.hwnd, _
LVM_SETCOLUMNWIDTH, _
col2adjust, _
ByVal LVSCW_AUTOSIZE_USEHEADER)
Next
End Sub
From: [email protected] [mailto:[EMAIL PROTECTED] On
Behalf Of Muhammad Nafan
Sent: Thursday, January 17, 2008 9:51 AM
To: [email protected]
Subject: Re: [indoprog-vb] Re: List View di VB
salam semua nya...
saya mo nanya nih gimana caranya buat table di list view, bisa gak yah ...
soal nya saya nggak tau, dan mo menghindari pake datagrid, pleasse dengan
sangat ...
terimakasih...
__________________________________________________________
[Non-text portions of this message have been removed]
