23-08-15, 06:09 PM
PHP كود :
Private Sub ShowDataInLvw(ByVal data As DataTable, ByVal lvw As ListView)
lvw.View = View.Details
lvw.GridLines = True
lvw.Columns.Clear()
lvw.Items.Clear()
For Each col As DataColumn In data.Columns
lvw.Columns.Add(col.ToString)
Next
For Each row As DataRow In data.Rows
Dim lst As ListViewItem
lst = lvw.Items.Add(If(row(0) IsNot Nothing, row(0).ToString, ""))
For i As Integer = 1 To data.Columns.Count - 1
lst.SubItems.Add(If(row(i) IsNot Nothing, row(i).ToString, ""))
Next
Next
End Sub
PHP كود :
ShowDataInLvw(dt,Listview1)
موفق
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات


