01.Private Sub MyShowBill()
02. Dim sqlQuery As String = " select Product, Amount, PriceBuy, PriceTotal from vwBill where idbill = '" & FrmCheckBill.idbill & "' "
03. Dim sqlDa As New SqlDataAdapter
04. Dim sqlComm As New SqlCommand
05. Dim Tablelvg As New DataTable
06. Dim sqlDs As New DataSet
07. With sqlComm
08. .CommandText = sqlQuery
09. .Connection = sqlConn
10. End With
11. sqlDa = New SqlDataAdapter(sql, cn)
12. sqlDs = New DataSet
13. sqlDa.Fill(Tablelvg)
14. For i = 0 To Tablelvg.Rows.Count - 1
15.
16. Dim arr As String() = New String(4) {}
17. Dim itm As ListViewItem
18. arr(0) = Tablelvg.Rows(i)("product").ToString()
19. arr(1) = Tablelvg.Rows(i)("Amount").ToString()
20. arr(2) = Tablelvg.Rows(i)("PriceBuy").ToString()
21. arr(3) =Tablelvg.Rows(i)("PriceTotal").ToString()
22. itm = New ListViewItem(arr)
23. listView1.Items.Add(itm)
24.
25. Next
26.end sub
