DataGrid als XML exportieren

Sam85 · 31. Mai 2017, 14:03

Hallo,

Frage: Ich trage Daten in ein DataGrid ein, dann will diese Daten in einer XML Datei speichern.
Die Daten die in das DataGrid eingetragen werden kommen aus einen anderen DataGrid (zumindest vorerst ein Segment) und aus separaten anderen Controls via Button.

Spoiler anzeigen

VB.NET-Quellcode

Option Strict On
Imports System.Data.DataSet
Imports System.Data.DataTable
Imports System.IO
Private Sub mbtn_adddata_Click(sender As Object, e As EventArgs) Handles mbtn_adddata.Click
Dim A As String = mtb_vorgang.Text
Dim B As String = mg_Data.SelectedRows(0).Cells(5).Value.ToString
Dim C As String = mtb_bezeichnung.Text
Dim D As String = mtb_anzahl.Text
Dim F As String = mtb_nettopreis.Text
Dim G As String = mtb_einkaufspreis.Text
Dim H As String = mtb_aufschlag.Text
Dim M As String = mcb_manummer.Text
With mg_print
If F = "" Then
.Rows.Insert(0, A, M, B, C, D, G, H)
ElseIf F <> "" Then
.Rows.Insert(0, A, M, B, C, D, F)
End If
End With
End Sub
Private Sub frmOrthesen_Load(sender As Object, e As EventArgs) Handles Me.Load
With mg_print
.Columns.Add("Vorgang", "Vorgang")
.Columns.Add("Mitarbeiter", "Mitarbeiter")
.Columns.Add("HMV", "HMV")
.Columns.Add("Bezeichnung", "Bezeichnung")
.Columns.Add("Anzahl", "Anzahl")
.Columns.Add("Netto/EK", "Netto/EK")
.Columns.Add("Aufschlag", "Aufschlag")
End With
End Sub

Angezeigt bekomme ich es in dem DataGrid, nur aus dem DataGrid exportiert bekomme ich es nicht. Es folgt die Fehlermeldung (siehe Bild) sobald der Befehl "vo.WriteXml(Save)" kommt.
Also ist mein Problem, wie bekomme ich die XML hin und mache ich zu dem Fehler, generell noch etwas anderes Grundlegendes Falsch, dass zu dem Fehler geführt hat.

Spoiler anzeigen

Freue mich über Feedback.

EpagneulBreton · 31. Mai 2017, 14:59

Wo ist denn das ürsprügliche Dataset/Datatable mit den Daten was an das dgv gebunden wurde?

Sam85 · 31. Mai 2017, 15:01

@EpagneulBreton Das andere DataSet läuft über eine XML Dateien hat halt nur Rohdaten. Die werden auch angezeigt und damit habe ich auch keine Probleme, hoffe ich :).

Spoiler anzeigen

EpagneulBreton · 31. Mai 2017, 15:07

So wie ich das sehe wird vo immer nothing bleiben, da das dgv gar keine Datatasource hat
Nimm bitte ein Datatable(mit den entsprechenden Columns und Datentypen) und binde das an das dgv.
z.b.
dotnetperls.com/datatable-vbnet

Sam85 · 31. Mai 2017, 15:12

ahhh Danke, ich verstehe

das heisst egal was in den DGV schreibe, es wird nirgendwo etabliert und dafür dann ein DataTable mit den entsprechenden Spalten?!

EpagneulBreton · 31. Mai 2017, 15:18

Sam85 schrieb:

ahhh Danke, ich verstehe das heisst egal was in den DGV schreibe, es wird nirgendwo etabliert und dafür dann ein DataTable mit den entsprechenden Spalten?!

Jep, am besten gar nicht erst angewöhnen, das dgv ohne Dataset/Datatable zu benutzen

Sam85 · 31. Mai 2017, 15:25

@EpagneulBreton Vielen Dank. Vielleicht kannst du mir auch dabei helfen...

Wenn ich den Filter mit diesem Code nutze klappt es einwandfrei.

VB.NET-Quellcode

Private Sub mtb_search_TextChanged(sender As Object, e As EventArgs) Handles mtb_search.TextChanged
OrthesenDTBindingSource.Filter = "Bezeichnung LIKE'" & mtb_search.Text & "*'"
End Sub

Will ich den Filter aber erweitern um eine Variable aus einer Combobox dann klappt es nicht. Wie integriere ich die Combobox in die Abfrage? (die CB ergibt dann "Bezeichnung" oder eine andere Spaltenbezeichnung)

VB.NET-Quellcode

Private Sub mtb_search_TextChanged(sender As Object, e As EventArgs) Handles mtb_search.TextChanged
Dim suche As String = mcb_filter.Text
OrthesenDTBindingSource.Filter = suche & "Like'" & mtb_search.Text & "*'"
End Sub

EpagneulBreton · 31. Mai 2017, 15:39

Auf den ersten Blick würde ich sagen, das vor dem LIKE ein Leerzeichen fehlt
Lass dir den Filter doch mal zur Laufzeit(z.b. Haltepunkt) anzeigen.

Sam85 · 31. Mai 2017, 15:59

@EpagneulBreton

das Leerzeichen war es gewesen, vielen Dank.

Sam85 · 4. Juli 2017, 10:05

Ich habe hierzu nochmal eine Frage.
Ich benutze den Code um im DataTable etwas zu filtern.

VB.NET-Quellcode

Dim suchfilter As String = mcb_filter.Text
Dim suchfeld As String = mtb_search.Text
Dim suchpg as String = mtb_searchpg.text
OrthesenDTBindingSource.Filter = suchfilter & " Like'" & suchfeld & "*'"

Das hier sind die Kriterien, die in der ersten Combobox angezeigt werden. (Bild Table Blau)

Spoiler anzeigen

Nun wollte ich ein weiteres Kriterium aus einer anderen Combobox unterbringen. (Bild Table Rot)
Dafür kann dann doch direkt die Bezeichnung aus dem Table genommen werden.

VB.NET-Quellcode

OrthesenDTBindingSource.Filter = " Produktgruppe Like'" & suchpg & "*'"

Nun meine Frage, wie verbinde ich die beiden Suchabfragen?
Freue mich über Feedback.

VB1963 · 4. Juli 2017, 10:46

Sam85 schrieb:

Nun meine Frage, wie verbinde ich die beiden Suchabfragen?

Kommt jetzt darauf an, wie du es willst:
1) OrthesenDTBindingSource.Filter = Ausdruck1 AND Ausdruck2
2) OrthesenDTBindingSource.Filter = Ausdruck1 OR Ausdruck2
es gibt noch andere Möglichkeiten...

Sam85 · 4. Juli 2017, 10:49

@VB1963

das And also eine synchrone Abfragemöglichkeit.

VB1963 · 4. Juli 2017, 10:51

Du kannst deine Filterausdrücke mit AND, OR etc. miteinander verknüpfen...

Sam85 · 4. Juli 2017, 14:51

So bekomme ich einen Fehler. Habe ich beim Verbinden etwas falsch gemacht?

VB.NET-Quellcode

OrthesenDTBindingSource.Filter = " Produktgruppe LIKE'" & suchpg & " AND " & suchfilter & " LIKE'" & suchfeld & "*'"

VB1963 · 4. Juli 2017, 15:43

Wäre jetzt gut, den fertigen Filterausdruck in BS.Filter zu prüfen (Haltepunkt etc.)...
Da fehlt ein Gäsefüßchen in deinem Filterausdruck...
Ich habe jetzt nur deine obigen Filterausdrücke reinkopiert:

VB.NET-Quellcode

Dim filter1 = suchfilter & " Like'" & suchfeld & "*'"
Dim filter2= "Produktgruppe Like'" & suchpg & "*'"
OrthesenDTBindingSource.Filter = filter1 & " AND " & filter2

Sam85 · 4. Juli 2017, 15:58

@VB1963

ich hab das jetzt getestet bekomme aber eine Fehlermeldung (siehe Bild)..ist die String Deklaration korrekt?

VB.NET-Quellcode

Dim filter1 As String = suchfilter & " Like'" & suchfeld & "*'"
Dim filter2 As String = "Produktgruppe Like'" & suchpg & "*'"
Try
OrthesenDTBindingSource.Filter = filter1 & " AND " & filter2
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try

VB1963 · 4. Juli 2017, 16:00

Sam85 schrieb:

OrthesenDTBindingSource.Filter

überprüfe einmal den Inhalt obiger Eigenschaft und poste ihn hier...

Sam85 · 4. Juli 2017, 17:05

@VB1963
wo finde ich die Eigenschaft denn? (bin jetzt gerade etwas blauäugig

) bzw. welche Eigenschaft der BindingSource meinst du?

EDIT:

Oder liegt es einfach daran, dass ich beide TextBoxen so verbunden habe?
Weil die einzeln hat die Suche funktioniert...

VB.NET-Quellcode

Private Sub mtb_search_TextChanged(sender As Object, e As EventArgs) Handles mtb_search.TextChanged, mtb_searchpg.TextChanged

VB1963 · 4. Juli 2017, 17:25

Sam85 schrieb:

wo finde ich die Eigenschaft denn?

naja - in deinem Code, denn du verfasst hast...
Mache einmal deinen TryCatch weg und setze einen Haltepunkt direkt nach der Zeile OrthesenDTBindingSource.Filter = filter1 & " AND " & filter2.
Wenn der Code dann stoppt, fahre mit der Maus über die .Filter-Eigenschaft - dann wird dir der Inhalt der Filtereigenschaft ausgegeben...
Und dieser Inhalt wäre für uns wichtig zu wissen...

Sam85 · 5. Juli 2017, 09:45

@VB1963

er zeigt Nothing an...sorry das ich nicht sofort verstanden habe was gemeint war...bin noch am Lernen.

EDIT: Ich muss revidieren..es klappt jetzt doch...habe mich selbst überlistet, Schande über mein Haupt.

DataGrid als XML exportieren

DataGrid als XML exportieren

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Sam85 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Sam85 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Sam85 schrieb:

VB.NET-Quellcode

Sam85 schrieb:

Ähnliche Themen

4 Benutzer haben hier geschrieben