PDA

Vollständige Version anzeigen : Listview mit mehren Spalten füllen VB.Net


TykaAndreas
30.07.2003, 20:32
wie sagt man einem Listview ( in VB.Net) , dass es in der 2ten Spalte Werte aus einem dataset anzeigen soll
in der OH wird so ziemlich alles beschrieben : ' wie man Elemente hinzufügt Und spalten ,wie man die Spalten beschriften kann usw ,nur diese Möglichkeit fehlt leider.

TykaAndreas
31.07.2003, 23:34
dachte ich häte jetzt Die lösung mit 'SubItems' es wird jetzt zwar in der zweiten spalte was eingetragen aber nur in der ersten Zeile
Aus irgendeinem Grund lässt sich der Codekonverter nicht auf mein XP installieren, wollte die Schlüsselwörter blau machen aber auch das geht leider nicht
iN DER 2 PROZEDUR , 3 zEILE VON UNTEN steht die vermeintliche Lösung mit Subitems

Private Sub Verbindung_zu_Access_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


Dim conStr As String
Dim selStr As String

conStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Backend\Access_backend.mdb;" & _
"Jet OLEDB:Database Password=pwd;"
conn = New OleDbConnection(conStr)
conn.Open()

ds = New DataSet()


selStr = "SELECT tdl_Auftrag.RefID,tdl_Auftrag.RefMot" _
& " FROM Auftrag WHERE (((tdl_Auftrag.RefID)='GZR25'))"

Dim da As New OleDbDataAdapter(selStr, conn)

da.Fill(ds, "tbl_test")
conn.Close()


Private Sub But_ListView_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.Click


ListView1.View = View.Details

ListView1.Columns.Add("Ms_Type", 50, HorizontalAlignment.Left)
ListView1.Columns.Add("Montag", 50, HorizontalAlignment.Left)


Dim dt As DataTable = ds.Tables.Item("tbl_test")
Dim custRow As DataRow

For Each custRow In dt.Rows
ListView1.Items.Add(custRow.Item("RefID"))
ListView1.Items(0).SubItems.Add(custRow.Item("RefMot"))
Next

End Sub

TykaAndreas
11.08.2003, 13:58
dachte mir doch , dass es über die Items gehen muss , aber die Tatsache dass der index für die erste Spalte egal ist , dass man also bei fortlaufender Zeilenanzahl immer wieder schreibt Items.Add , hat mich immer wieder auf den Holzweg gebracht , aber jetzt hab ichs

dass der Code so auseinandergezogen wird mmhh , sorry aber es ist der neuste Codeconverter.
<div>
<link href="http://www.ms-office-forum.de/ubb/codeconv.css" rel="stylesheet">
<pre>
<span class="TOKEN">Private Sub</span> But_ListView_Click(<span class="TOKEN">ByVal</span> sender <span class="TOKEN">As</span> Object, <span class="TOKEN">ByVal</span> e <span class="TOKEN">As</span> System.EventArgs) Handles Button6.Click
ListView1.View = View.Details
<span class="TOKEN">Dim</span> dt <span class="TOKEN">As</span> DataTable = ds.Tables.Item(&quot;tbl_Key&quot;)
<span class="TOKEN">Dim</span> custRow <span class="TOKEN">As</span> DataRow
<span class="TOKEN">Dim</span> i <span class="TOKEN">As</span> <span class="TOKEN">Integer</span>
i = 0
<span class="TOKEN">For</span> <span class="TOKEN">Each</span> custRow <span class="TOKEN">In</span> dt.Rows
ListView1.Items.Add(custRow.Item(&quot;KeyFahr&quot;))
ListView1.Items(i).SubItems.Add(custRow.Item(&quot;KundenName&quot;))
i = i + 1
<span class="TOKEN">Next</span>
<span class="TOKEN">End</span> <span class="TOKEN">Sub</span>

</pre>
</div>