ListView: Ausgabe um eine Spalte verschoben

02/03/2009 - 08:40 von Andreas Ahrens | Report spam
Hi NG,

wa ist am unteren Listing falsch, wenn die Ausgabe um eine Spalte nach
rechts verschoben erfolgt?

Private Sub TreeView1_AfterSelect(ByVal sender As Object, ByVal e As
System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect

'ausgewàhlten Namen suchen
Dim SQL As String = "SELECT * FROM Kunden " & _
"WHERE NName = '" & e.Node.Text & "'"

Dim conn As New
OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source­O-Test.mdb")
Dim cmd As New OleDbCommand(SQL, conn)
Dim lw As New ListViewItem()

Me.ListView1.View = View.Details
Me.ListView1.FullRowSelect = True
Me.ListView1.HideSelection = False
Me.ListView1.GridLines = True

Me.ListView1.Columns.Clear()
Me.ListView1.Items.Clear()

Me.ListView1.Columns.Add("NName")
Me.ListView1.Columns.Add("VName")
Me.ListView1.Columns.Add("Straße")
Me.ListView1.Columns.Add("Plz")
Me.ListView1.Columns.Add("Ort")


conn.Open()

Dim dr As OleDbDataReader = cmd.ExecuteReader()

'Ausgabe um eine Spalte nach rechts verschoben
While dr.Read()

lw.SubItems.Add(dr("NName").ToString())
lw.SubItems.Add(dr("VName").ToString())
lw.SubItems.Add(dr("Straße").ToString())
lw.SubItems.Add(dr("Plz").ToString())
lw.SubItems.Add(dr("Ort").ToString())

Me.ListView1.Items.Add(lw)
End While

dr.Close()
conn.Close()

End Sub
End Class

Gruß
Andy
 

Lesen sie die antworten

#1 Thomas Hübner
02/03/2009 - 09:28 | Warnen spam
On 2 Mrz., 08:40, Andreas Ahrens
wrote:
Hi NG,

wa ist am unteren Listing falsch, wenn die Ausgabe um eine Spalte nach
rechts verschoben erfolgt?



Hi Andreas,

wenn Du einen Listview in Detailansicht hast, ist:

Dim lw As New ListViewItem("Erste Spalte")
lw.Subitems.Add("Zweite Spalte")

Die erste Spalte ist also lw.Text

Gruß,
Thomas

Ähnliche fragen