数据提取的问题

XWQ2000

例如表中有组数据

数值

100

90

80

我想得到100和90、90和80之间的差值，请问如何做到

andymark

用ADO循环 求值

XWQ2000

怎麽用呀 能告诉我吗

andymark

如果表中有唯一的ID,也可通过查询求得

andymark

Dim IntA As Integer

Dim Rs As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Set Conn = CurrentProject.Connection
Rs.Open "select * from 表1", Conn, adOpenDynamic, adLockOptimistic
Do While Not Rs.EOF
If IntA > 0 Then
   Debug.Print IntA - Rs.Fields("数值")
End If
IntA = Rs.Fields("数值")
Rs.MoveNext
Loop
Set Rs = Nothing
Set Conn = Nothing

XWQ2000

我试了半天还是没有成功

现把附件传上来，希望那位帮我改改 谢谢

andymark

XWQ2000

谢谢