Hallo Zusammen!
ich weiß gar nicht wo ich richtig anfangen soll. Ich habe 2 XML-Dateien. In der Einen sind die Leih-DVDs in der anderen die Kunden. Ich möchte nun ein Datagrid füllen, indem die Daten der DVDs angezeigt werden und falls Ausgeliehen der Name des Kunden. Wie man ein Datagrid manuell füllt, verstehe ich nicht. Ich kann Buttons manuell einfügen die dann z.b. den Datensatz löschen, aber füllen...
Hier mein Code, wie ich das Datagrid automatisch fülle.
Hoffe jemand kann mir helfen.
Grüße
Gerd
<PRE>
Dim ds As DataSet
ds = New DataSet()
ds.ReadXmlSchema(strPath & "\Test.xsd")
ds.ReadXml(strPath & "\Test.xml")
Dim view As DataView = New DataView()
view.Table = ds.Tables.Item("DVD")
view.RowFilter = PI.strWhere
view.Sort = PI.strSort
If PI.boolMsg = False Then
Msg("Die Suche ergab " & view.Count & " Treffer")
DgTabelle.DataSource = view
DgTabelle.DataBind()
</PRE>
ich weiß gar nicht wo ich richtig anfangen soll. Ich habe 2 XML-Dateien. In der Einen sind die Leih-DVDs in der anderen die Kunden. Ich möchte nun ein Datagrid füllen, indem die Daten der DVDs angezeigt werden und falls Ausgeliehen der Name des Kunden. Wie man ein Datagrid manuell füllt, verstehe ich nicht. Ich kann Buttons manuell einfügen die dann z.b. den Datensatz löschen, aber füllen...
Hier mein Code, wie ich das Datagrid automatisch fülle.
Hoffe jemand kann mir helfen.
Grüße
Gerd
<PRE>
Dim ds As DataSet
ds = New DataSet()
ds.ReadXmlSchema(strPath & "\Test.xsd")
ds.ReadXml(strPath & "\Test.xml")
Dim view As DataView = New DataView()
view.Table = ds.Tables.Item("DVD")
view.RowFilter = PI.strWhere
view.Sort = PI.strSort
If PI.boolMsg = False Then
Msg("Die Suche ergab " & view.Count & " Treffer")
DgTabelle.DataSource = view
DgTabelle.DataBind()
</PRE>