同一张表中两个记录之间的字段值差异

Question

我有table1，它有抄表字段。 我想计算抄表记录1和抄表记录2之间的差异。

Answer 1

假设您在表table1有一个连续的ID字段，以下查询将为您提供所需的结果：

SELECT T1.ID, T1.MeterReading, T2.MeterReading, [T2].[MeterReading]-[T1].[MeterReading] AS Difference
FROM tbl AS T1, tbl AS T2
WHERE (((T1.ID)=[T2].[ID]-1));

但是，如果ID是autonumber类型，则您可能会遗漏一些数字并失去连续性，因此我建议对ID使用number类型并使用一些代码来确保连续性。

Answer 2

我假设使用表和字段的名称，因此显然您应该更改它们以适合您的模式。

Dim rs AS new ADODB.Recordset
Dim PrevReading AS Long

rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM tblReadings ORDER BY ReadingDate",CurrentProject.Connection,adOpenKeyset, adLockOptimistic
Do While Not rs.Eof
   rs.Field("Difference")=rs.Field("MeterReading") - PrevReading
   PrevReading = rs.Fields("MeterReading")
   rs.MoveNext
Loop
rs.Close