访问字段相同但不相等？

Question

我正在使用以下代码来比较两个记录集：

For i = 1 To (recordsetA.Fields.Count - 1)
    If recordsetA.Fields(i).Value <> recordsetB.Fields(i).Value Then
        stringFieldList = stringFieldList & ", " & recordsetA.Fields(i).Name
    End If
Next i

但是在stringFieldList中有几个具有相同值的字段（如1339.5）。为什么？

Answer 1

由于这听起来像是处理双数据类型，测试的正确方法是设置限制，然后测试绝对差异。您还需要考虑处理空值。

Const epsilon as double = 0.00001

If Abs(recordsetA.Fields(i).Value - recordsetB.Fields(i).Value) < epsilon Then
'do stuff here
End If