求连续窗体循环代码

求单价、底数 一起循环的代码，连续窗体不允许新增。

如果方便求将代码大概意思标准一下谢谢！

循环代码写在主窗体收费日期事件中！

底数=主窗体“业主代码”、子窗体“项目” 与 收费登记表 “业主代码、项目，求收费日期”最大的“抄表”数。

底数显示：必须是 收费标准表 “底数选择”勾选的品种否则不显示底数。

单价= 主窗体“类别”、子窗体“项目”与 收费标准表“类别、项目”的“单价”。
以上底数与单价允许在子窗体编辑。

现代码如下：

Private Sub SFRQ_LostFocus()
Me.收费登记_子窗体.Requery
Me.收费登记_子窗体.SetFocus
Dim Bend
On Error GoTo Err_XXXX
DoCmd.GoToRecord acActiveDataObject, , acFirst
Do Until IsNull(Me.[收费登记_子窗体]![项目])
Me.[收费登记_子窗体]![单价] = DLookup("单价", "收费标准", "类别&项目='" & Me.类别 & 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
 DoCmd.GoToRecord acActiveDataObject, , acFirst
Do Until IsNull(DMax("抄表", "收费登记", "业主代码='" & Me.YZDM & "' and 项目='" & DLookup("项目", "收费标准", "项目&底数选择='" & Me.[收费登记_子窗体]![项目] & -1 & "'") & "'"))
Me.[收费登记_子窗体]![底数] = DMax("抄表", "收费登记", "业主代码='" & Me.YZDM & "' and 项目='" & DLookup("项目", "收费标准", "项目&底数选择='" & Me.[收费登记_子窗体]![项目] & -1 & "'") & "' and 收费日期=#" & DMax("收费日期", "收费登记", "业主代码&项目='" & Me.YZDM & Me.[收费登记_子窗体]![项目] & "'") & "#")
DoCmd.GoToRecord acActiveDataObject, , acNext
Loop

End Sub

点击下载此附件