Office中国论坛/Access中国论坛

标题: 数据提取的问题 [打印本页]

作者: XWQ2000 时间: 2006-10-19 19:00
标题: 数据提取的问题
例如表中有组数据

数值

100

90

80

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

作者: andymark 时间: 2006-10-19 19:30
用ADO循环求值

作者: XWQ2000 时间: 2006-10-19 19:43
怎麽用呀能告诉我吗

作者: andymark 时间: 2006-10-19 20:21
如果表中有唯一的ID,也可通过查询求得

作者: andymark 时间: 2006-10-19 20:27
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 时间: 2006-10-19 23:12
我试了半天还是没有成功

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

[attach]21035[/attach]

作者: andymark 时间: 2006-10-19 23:31
[attach]21038[/attach]

作者: XWQ2000 时间: 2006-10-20 01:43
谢谢

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)