Dim h() As String
Dim List1 As List
Dim Qty As Int
Qry="SELECT Orders.ProdCode,Products.Description,Orders.Qty FROM Orders " _
& "LEFT OUTER JOIN Products ON Orders.ProdCode=Products.ProdCode"
ExecuteListView(Main.SQL,Qry,"",0,List1,False)
Dim h(Cursor.ColumnCount) As String
h(0) = "Prod Code"
h(1) = "Description"
h(2) = "Qty"
grd.Cols = h.Length
grd.Rows=0
SetHeader(grd,h)
For i = 0 To List1.Size - 1
Dim row() As String
row = List1.Get(i)
AddRow(grd,row)
Next