求帮忙将 底数 和 单价 都循环。
谢谢!
Private Sub 类别_LostFocus()
Me.收费登记_子窗体.Requery
Me.收费登记_子窗体.SetFocus
Dim Bend
On Error GoTo Err_XXXX
DoCmd.GoToRecord acActiveDataObject, , acFirst
Do Until IsNull(Me.[收费登记_子窗体]![项目])
Me.[收费登记_子窗体]![底数] = DMax("抄表", "收费登记", "业主代码='" & Me.YZDM & "'AND 项目='" & DLookup("项目", "收费标准", "项目&底数选择='" & Me.[收费登记_子窗体]![项目] & -1 & "'") & "' AND 收费日期= #" & DMax("收费日期", "收费登记", "业主代码&项目='" & Me.YZDM & Me.[收费登记_子窗体]![项目] & "'") & "#")
If Bend = -1 Then Exit Do
DoCmd.GoToRecord acActiveDataObject, , acNext
Loop
DoCmd.GoToRecord acActiveDataObject, , acFirst
Do Until IsNull(Me.[收费登记_子窗体]![项目])
Me.[收费登记_子窗体]![单价] = DLookup("单价", "收费标准", "项目='" & Me.[收费登记_子窗体]![项目] & "'")
If Bend = -1 Then Exit Do
DoCmd.GoToRecord acActiveDataObject, , acNext
Loop
Err_XXXX:
If Err.Number = 2105 Then
Bend = -1
Resume Next
End If
End Sub