Hallo zusammen,
ich habe mir mit Codeschnipsel die ich hier im Forum bekommen habe eine Prozedur geschrieben, mit der ich das Ergebnis einer MySQL Abfrage in ein Listview anzeigen lasse. Das klappt soweit auch ganz gut, nur bekomme ich zwischen den einträgen einen großen abstand, oder wenn ich das Listview größer ziehe, zwei einträge neben einander angezeigt (Siehe Bilder). Kann mir einer sagen wo da der Fehler ist??
ich habe mir mit Codeschnipsel die ich hier im Forum bekommen habe eine Prozedur geschrieben, mit der ich das Ergebnis einer MySQL Abfrage in ein Listview anzeigen lasse. Das klappt soweit auch ganz gut, nur bekomme ich zwischen den einträgen einen großen abstand, oder wenn ich das Listview größer ziehe, zwei einträge neben einander angezeigt (Siehe Bilder). Kann mir einer sagen wo da der Fehler ist??
VB.NET-Quellcode
- Public Sub ToListview(ByVal SqlQuery As String, _
- ByRef Lv As ListView)
- Dim myConnection As MySqlConnection = verbinden()
- Dim myCommand As New MySqlCommand(SqlQuery, myConnection)
- Dim myAdapter As New MySqlDataAdapter(myCommand)
- Dim myDataTable As New DataTable
- 'Daten aus DB holen und in Variable "myDataTable" speichern
- myAdapter.Fill(myDataTable)
- 'Überschriften
- For Each col As DataColumn In myDataTable.Columns
- Lv.Columns.Add(CStr(col.Caption), 200)
- Next
- 'Daten
- For Each Row As Data.DataRow In myDataTable.Rows
- Dim lvi As ListViewItem = Lv.Items.Add(Row.Item(0).ToString())
- For Each Column As Data.DataColumn In myDataTable.Columns
- If Column.ColumnName = myDataTable.Columns(0).ColumnName Then _
- Continue For
- Dim val As String = If(Row.Item(Column) Is DBNull.Value, "[null]", _
- Row.Item(Column).ToString())
- lvi.SubItems.Add(val)
- Next
- Next
- End Sub
