Jag har en sql-fråga som tar fram lite info från min databas

så här ser resultatet av sql frågan ut

ProjektID - ArbetsTid - TimPeng - Summa För Vikt
94 - 165 - 365,08 - 1022
96 - 50 - 50,00 - 116


Det jag vill är att få in detta i en listview

<code>
Dim sSQL As String =
"SELECT DISTINCTROW Projekt.ProjektId, Projekt.Typ, Projekt.timpeng, Projekt.Arbetstid, Sum(Material.Vikt) AS [Summa för Vikt], Sum(Material.Pris) AS [Summa för Pris] FROM Projekt INNER JOIN Material ON Projekt.ProjektId = Material.projektId GROUP BY Projekt.ProjektId, Projekt.Typ, Projekt.timpeng, Projekt.Arbetstid;"


Dim objDataAdapterPo As New OleDb.OleDbDataAdapter(sSQL, objConn)
Dim objTablePo As DataTable

objDataAdapterPo.Fill(objDS, "info")
objTablePo = objDS.Tables("info")

Dim objRow As DataRow


LVs.Items.Clear()
LVs.Columns.Clear()
LVs.Columns.Add("ProjektID", 100, 0)
LVs.Columns.Add("Arbetstid", 100, 0)
LVs.Columns.Add("Timpeng", 100, 0)
LVs.Columns.Add("Summa för vikt", 100, 0)


For Each objRow In objTablePo.Rows
If (objRow.RowState <> DataRowState.Deleted) Then
Dim item As ListViewItem

item.SubItems.Add(objRow.Item("Projektid").ToString())
item.SubItems.Add(objRow.Item("Arbetstid").ToString())
item.SubItems.Add(objRow.Item("Timpeng").ToString())
item.SubItems.Add(objRow.Item("Summa för vikt").ToString())
End If
Next
</code>

Hej,

Du var nära lösningen. Först behöver du sätta vyn till Detail-vy för att få kolumner i listviewn. Sedan behöver du lägga till en ListViewItem som representerar första kolumnen och sedan lägga till ListViewSubitems som representerar övriga kolumner. Se exempel :

<code>
LVs.Items.Clear()
LVs.View=View.Details ' Set detail view!!!
LVs.Columns.Clear()
LVs.Columns.Add("ProjektID", 100, 0)
LVs.Columns.Add("Arbetstid", 100, 0)
LVs.Columns.Add("Timpeng", 100, 0)
LVs.Columns.Add("Summa för vikt", 100, 0)


For Each objRow In objTablePo.Rows
If (objRow.RowState <> DataRowState.Deleted) Then
Dim item As ListViewItem

' Add a new ListViewItem
item=LVs.Items.Add(objRow.Item("Projektid").ToString())
' Add the ListViewSubItems
item.SubItems.Add(objRow.Item("Arbetstid").ToString())
item.SubItems.Add(objRow.Item("Timpeng").ToString())
item.SubItems.Add(objRow.Item("Summa för vikt").ToString())
End If
Next
</code>

Fantastiksk, tack än en gång, för utmärkt hjälp