请教各位高手，假设在数据库里有一表A，字段1，字段1有1,2,3......，我想实现2-1，3-2,4-3....依次类推，并把计算结果写入到表A里的另一个字段2中，该如何写？

简单.不知道你采用什么来连接access.控件还是adodc对象?

没看明白需求，能否详细点？

adodc对象连接的，
我的意思就是说，计算表A中字段X一列数据，让这列数据的下一个减去上一个数据，计算结果赋给字段Y，字段X有数据：
id 字段X 字段Y
1    1     （2-1的值）
2    2     （3-2的值）
3    3     (4-3的值)
...............
要计算2-1的值写入字段Y

最后一个数值怎么处理？

最后一个数值不变，直接放到字段2中的最后一个

方法1：循环计算
Rs.Open "Select * from A order by [ID]",Conn,1,1
If Not Rs.EOF then
    Rs.MoveFirst
    ID = Rs.Fields("ID")
    ID_Val = Rs.Fields("字段1")
    Rs.MoveNext
    Do while not Rs.EOF
        Conn.Excute（"Update A Set [字段2] = " & Rs.Fields("字段1")-ID_Val & " where [ID] = '" & ID & "'"）
        ID = Rs.Fields("ID")
        ID_Val = Rs.Fields("字段1")
        Rs.MoveNext
    Loop
    Conn.Excute（"Update A Set [字段2] = [字段2] where [ID] = '" & ID & "'"）
EndIf
Rs.Close

方法2,：建立临时表C
Select * into C from (Select [ID],[字段1],IIF(IsNull[字段2],[字段1],[字段2]-[字段1]) as [字段2] from (Select A.[ID],A.[字段1],B.[字段1] as [字段2] from A left join A B on B.[ID]=A.[ID]+1))
删除表A， 重命名C为A

按照方法输，提示“对象不支持该属性和方法或方法”

出错行是？
要先引用ADO 并定义 Dim Conn As New ADODB.Connection, Rs As New ADODB.Recordset

Private sub Command1_Click
RsMain.CursorLocation = adUseClient
Rs.Open "Select * from A order by [ID]",Conn,1,1
If Not Rs.EOF then
    Rs.MoveFirst
    ID = Rs.Fields("ID")
    ID_Val = Rs.Fields("字段1")
    Rs.MoveNext
    Do while not Rs.EOF
        Conn.Excute（"Update A Set [字段2] = " & Rs.Fields("字段1")-ID_Val & " where [ID] = '" & ID & "'"）
        ID = Rs.Fields("ID")
        ID_Val = Rs.Fields("字段1")
        Rs.MoveNext
    Loop
    Conn.Excute（"Update A Set [字段2] = [字段2] where [ID] = '" & ID & "'"）
EndIf
Rs.Close
End sub

收到的鲜花

• xo1437404152 于 2014-04-02 23:27 送鲜花  3朵   附言：谢谢对我的问题的解答！
• xo1437404152 于 2014-04-02 23:28 送鲜花  2朵   附言：非常感谢！

出错行是： Conn.Excute（"Update A Set [字段2] = " & Rs.Fields("字段1")-ID_Val & " where [ID] = '" & ID & "'"）
RsMain.CursorLocation = adUseClient‘这行是什么意思？