现在只是第一条记录能够执行，想要从第一条到最后一条都可以执行
Private Sub Command1_Click()
Dim a, b As Integer
Data1.Recordset.MoveFirst
a = Val(Text5.Text)
b = Val(Text6.Text)
Text4.Text = a - b
Data1.Recordset.MoveLast
End Sub

[[it] 本帖最后由 qgyun 于 2008-5-17 13:59 编辑 [/it]]

Private Sub Command1_Click()
 Dim a, b As Integer
 Data1.Recordset.MoveFirst
 a = Val(Text5.Text)
 b = Val(Text6.Text)
 Text4.Text = a - b
 Data1.Recordset.MoveLast
End Sub

while not Data1.Recordset.eof
a = Val(Text5.Text)
b = Val(Text6.Text)
Text4.Text = a - b
Data1.Recordset.movenext
wend
试试这个

应该有个movenext，支持楼上！！！

已解决