Hallo Peter,
für jemand laut eigener Aussage "bequem ist" (O-Ton), produzierst
Du einen Haufen Mist für nichts.
Die von Dir reklamierte Unabhängigkeit ist eine Illusion. Passen die Schnittstellen wegen einer Änderung nicht, so wird es scheppern. Du hast eigentlich nur Glück, dass (zumindest bei Office) auf solche Leichtsinn Rücksicht genommen wird.
Notwendig ist das Ganze mit .NET 4.0 nicht mehr, siehe dazu
Exemplarische Vorgehensweise: Einbetten von Typinformationen aus Microsoft Office-Assemblys (C# und Visual Basic) und Du darfst Deiner Bequemlichkeit zumindest dabei fröhnen ;)
Allerdings beim zweiten solltest Du wieder aufstehen, denn
IF row.Item(sH, DataRowVersion.Original) <> row.Item(sH, DataRowVersion.Current) Then
produziert zwar bei Option Strict Off keinen (Compiler-) Fehler aber trotzdem Schrott. Ein kleines Beispiel mit (D)einer falschen und mehreren "richtigeren" Lösungen:
Dim table As New DataTable()
table.Columns.Add("Id", GetType(Integer))
table.Columns.Add("Name", GetType(String))
Dim rows() = New DataRow() {
table.Rows.Add(1, "ABC"),
table.Rows.Add(2, Nothing),
table.Rows.Add(3, "DEF"),
table.Rows.Add(4, Nothing)}
table.AcceptChanges()
rows(0)("Name") = "abc"
rows(1)("Name") = "ABC"
rows(2)("Name") = Nothing
rows(3)("Id") = DBNull.Value
rows(3)("Name") = DBNull.Value
For Each row As DataRow In table.Rows
' Nur Option Strict Off und fehlerhaft bei Nullwerten
'If row("Name", DataRowVersion.Current) <> row("Name", DataRowVersion.Original) Then
' funktioniert wegen Überladung von Equals bei integrierten (richtig implementierten) Typen
If Not row("Name", DataRowVersion.Current).Equals(row("Name", DataRowVersion.Original)) Then
' DataSetExentions, konvertiert DbNull zu Nothing (Null)
'If row.Field(Of String)("Name", DataRowVersion.Current) <> row.Field(Of String)("Name", DataRowVersion.Original) Then
' Für Werttypen wie Integer; Richtig in C#, Visual Basic ist leider mal wieder zu schlau
'If row.Field(Of Integer?)("Id", DataRowVersion.Current) <> row.Field(Of Integer?)("Id", DataRowVersion.Original) Then
' nur so geht es auch in VB richtig (siehe oben)
'If Not row.Field(Of Integer?)("Id", DataRowVersion.Current).Equals(row.Field(Of Integer?)("Id", DataRowVersion.Original)) Then
Console.WriteLine("{0}: {1} ungleich", DirectCast(row("Id", DataRowVersion.Original), Object), row("Name"))
Else
Console.WriteLine("{0}: {1} gleich", row("Id", DataRowVersion.Original), row("Name"))
End If
Next
Die Geschichte mit den DataSetExtensions ist eines der Beispiele, wo die Visual Basic Erbauer am Ziel vorbei geschossen sind, und verbessern wollten, wo es nichts zu verbessern gab...
Abschließend gesagt, liefert Option Strict Off in den wenigsten Fällen "bessere" Ergebnisse, kann (und wird) aber jede Menge Probleme verursachen. Ich habe es von Anfang an (ab VB 2002) gemieden und bin in einer anderen Sprache (C#), die es lange
(vor dynamic) gar nicht konnte, ebenso gut, oft sogar besser zurecht gekommen (weil der Compiler seltener schlau sein will). Dass Visual Basic die notwendigen Anweisungen abschreckend lang gestaltet - wie DirectCast(o, Typname) -, sollte kein Grund sein, darauf
zu verzichten.
Gruß Elmar
