Hallo,
und mal wieder bin es ich und mal wieder geht es wieder um das Thema Dataset.
Also mein Problem ist momentan dass abspeichern der Daten. Diese werden von mir vorher aus einer textdatei gefiltert und dann die Daten den Spalten zu orten und der Tabelle hinzufügen. doch irgendwie will das abspeichern nicht funktionieren.
Hiermal mein Code:
doch bei
kommt immer die fehlermeldung:
Aber auf einer anderen Form funktioniert der code komischer weiße:
ich verstehe da jetzt den Grund der o.g. Fehlermeldung nicht
und mal wieder bin es ich und mal wieder geht es wieder um das Thema Dataset.
Also mein Problem ist momentan dass abspeichern der Daten. Diese werden von mir vorher aus einer textdatei gefiltert und dann die Daten den Spalten zu orten und der Tabelle hinzufügen. doch irgendwie will das abspeichern nicht funktionieren.
Hiermal mein Code:
VB.NET-Quellcode
- Public Sub dataread()
- Dim dr = GHK1.Preise.NewPreiseRow
- For Each line As String In System.IO.File.ReadAllLines(My.Application.Info.DirectoryPath & "\entpackt\DATANORM.001", System.Text.Encoding.GetEncoding(850))
- If line.IndexOf("T;") = 0 Then
- If Regex.Match(line, ";[0-9]{1};;", RegexOptions.IgnoreCase).ToString = ";1;" Then
- dr.Zuordnung = Regex.Match(line, "[0-9]{4,}", RegexOptions.IgnoreCase).Value
- dr.Name = Regex.Matches(line, ";1;;[(a-z)(0-9)äüö\""\*\-\s\.$]{1,}", RegexOptions.IgnoreCase)(0).Value
- dr.Beschreibung = Regex.Matches(line, ";2;;[(a-z)(0-9)äüö\""\*\-\s\.$\+\/]{1,}", RegexOptions.IgnoreCase)(0).Value
- GHK1.Preise.AddPreiseRow(dr)
- ElseIf Regex.IsMatch(line, "Artikel", RegexOptions.IgnoreCase) = True Then
- dr.Zuordnung = Regex.Match(line, "[0-9]{4,}", RegexOptions.IgnoreCase).Value
- dr._Artikel_Nr_ = Regex.Match(line, "Artikel-Nr.:[(a-z)(0-9)]", RegexOptions.IgnoreCase).Value
- dr.Beschreibung = Regex.Match(line, "[(a-z)äüö\s]{2,}", RegexOptions.IgnoreCase).Value
- GHK1.Preise.AddPreiseRow(dr)
- ElseIf Regex.Matches(line, "[(a-z)äüö\s]{2,}", RegexOptions.IgnoreCase).Count = 2 Then
- dr.Zuordnung = Regex.Match(line, "[0-9]{4,}", RegexOptions.IgnoreCase).Value
- dr.Beschreibung = Regex.Matches(line, "[(a-z)äüö\s]{2,}", RegexOptions.IgnoreCase)(0).Value
- dr.Beschreibung = Regex.Matches(line, "[(a-z)äüö\s]{2,}", RegexOptions.IgnoreCase)(1).Value
- GHK1.Preise.AddPreiseRow(dr)
- ElseIf Regex.Matches(line, "[(a-z)äüö\s]{2,}", RegexOptions.IgnoreCase).Count = 1 Then
- dr.Zuordnung = Regex.Match(line, "[0-9]{4,}", RegexOptions.IgnoreCase).Value
- dr.Beschreibung = Regex.Matches(line, "[(a-z)äüö\s]{2,}", RegexOptions.IgnoreCase)(0).Value
- GHK1.Preise.AddPreiseRow(dr)
- End If
- GHK1.Preise.WriteXml("Preise.xml")
- End If
- Next
- End Sub
doch bei
kommt immer die fehlermeldung:
{"Diese Zeile gehört bereits zu dieser Tabelle."}
Aber auf einer anderen Form funktioniert der code komischer weiße:
ich verstehe da jetzt den Grund der o.g. Fehlermeldung nicht