Moin!
Ich habe ein kleines Problem, zu dem ich im Netz leider noch keine Lösung gefunden habe.
Ich fülle ein Row Array mit einem Select-Befehl über eine Datatable.
Dann prüfe ich Zeile für Zeile, ob sich die jeweils aktuelle DataRow schon in einer anderen Datatable befindet. Wenn nicht, erstelle ich eine neu Row in der zweiten Tabelle und schreibe die Felder aus der ersten Tabelle dort hinen. Ich kann die Row leider nicht einfach importieren, da es sich um komplett unterschiedliche Tabellen mit anderen Strukturen handelt.
Jetzt haben aber einige Zellen in der ersten den Wert NULL bzw DBNull. Das versuche ich mit der Prüfung If Not IsDBNull(komRow.Rekl) Then (Zeile 18) abzufangen.
Allerdings erscheint die Extension auch bei der Prüfung?? Ich möchte also schauen ob der die Zelle DBNull ist und bekomme einen Anpfiff, dass das nicht geht WEIL die Zelle DBNull ist.
Ich hoffe, mir kann jemand dabei helfen. Unten habe ich noch den Code angefügt. Ich hoffe, dass ich den Code richtig in diesen Post eingebunden habe.
Beste Grüße
MaHu1983
*Topic verschoben*
Ich habe ein kleines Problem, zu dem ich im Netz leider noch keine Lösung gefunden habe.
Ich fülle ein Row Array mit einem Select-Befehl über eine Datatable.
Dann prüfe ich Zeile für Zeile, ob sich die jeweils aktuelle DataRow schon in einer anderen Datatable befindet. Wenn nicht, erstelle ich eine neu Row in der zweiten Tabelle und schreibe die Felder aus der ersten Tabelle dort hinen. Ich kann die Row leider nicht einfach importieren, da es sich um komplett unterschiedliche Tabellen mit anderen Strukturen handelt.
Jetzt haben aber einige Zellen in der ersten den Wert NULL bzw DBNull. Das versuche ich mit der Prüfung If Not IsDBNull(komRow.Rekl) Then (Zeile 18) abzufangen.
Allerdings erscheint die Extension auch bei der Prüfung?? Ich möchte also schauen ob der die Zelle DBNull ist und bekomme einen Anpfiff, dass das nicht geht WEIL die Zelle DBNull ist.
Ich hoffe, mir kann jemand dabei helfen. Unten habe ich noch den Code angefügt. Ich hoffe, dass ich den Code richtig in diesen Post eingebunden habe.
Beste Grüße
MaHu1983
VB.NET-Quellcode
- Private Sub copyKomReport()
- Dim komFRow() As dsLifeReport.K_KomRepRow
- Dim lrRow() As dsLifeReport.tabLogBookRow
- Dim lrNewRow As dsLifeReport.tabLogBookRow
- komFRow = ds.K_KomRep.Select("Kom = '" & dgvKom.CurrentRow.Cells(0).Value & "'")
- For Each komRow As dsLifeReport.K_KomRepRow In komFRow
- lrRow = ds.tabLogBook.Select("Descr = '" & komRow.Kurztext & vbLf & komRow.Sachverhalt & "'")
- If lrRow.Length = 0 Then
- lrNewRow = ds.tabLogBook.NewRow
- With lrNewRow
- .DateOfExec = komRow.AngAm
- .NameTechnician = komRow.AngDurch
- .Descr = komRow.Kurztext & vbLf & komRow.Sachverhalt
- .Kom = komRow.Kom
- .CNo = dgvKom.CurrentRow.Cells(2).Value
- If Not IsDBNull(komRow.Rekl) Then
- .Rekla = Strings.Left(komRow.Rekl, 6)
- If Strings.Len(komRow.Rekl) > 8 Then
- .RekPos = Strings.Mid(komRow.Rekl, 8, Strings.Len(komRow.Rekl) - 7)
- Else
- .RekPos = Strings.Right(komRow.Rekl, 1)
- End If
- End If
- .ProgStat = "open"
- ds.tabLogBook.Rows.Add(lrNewRow)
- End With
- End If
- Next
- End Sub
*Topic verschoben*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()