什么是vb中recordset.underlyingvalue和recordset.value的vb.net等价物或类似物?
我正在将一个 vb 应用程序转换为 vb.net,并且我已经用数据集替换了记录集,但我无法弄清楚这一点。任何帮助将非常感激。
我尝试制作数据集的副本并比较值以跟踪更改,但这似乎不是很有效。这是我正在尝试转换的一段代码。
For Each fld In rs.Fields
bfldChanged = False
Select Case fld.Type
Case adDate, adDBDate, adDBTime, adDBTimeStamp:
If IsDate(fld.UnderlyingValue) And Not IsDate(fld.Value) Then
bfldChanged = True
ElseIf Not IsDate(fld.UnderlyingValue) And IsDate(fld.Value) Then
bfldChanged = True
ElseIf IsDate(fld.UnderlyingValue) And IsDate(fld.Value) Then
If fld.UnderlyingValue <> fld.Value Then
bfldChanged = True
Else
bfldChanged = False
End If
Else
bfldChanged = False
End If
Case Else:
If (fld.UnderlyingValue <> fld.Value) Then
bfldChanged = True
Else
bfldChanged = False
End If
End Select
Next