子窗体刷新不足问题

sunredday

On Error Resume Next
Dim rst As DAO.Recordset
Dim intI As Integer
Dim intA As Long
Dim strA As String

  
intA = Me.[11分部分项工程量清单子窗体11].Form![预算表序号]
Set rst = CurrentDb.OpenRecordset("11分部分项工程量清单1")
strA = "预算表序号=" & intA & ""

rst.MoveLast
rst.FindFirst strA

rst.Edit
For intI = 1 To 56
rst.Fields(intI) = 变量.myfield(intI)
Next intI
rst.Update
Me.[11分部分项工程量清单子窗体11].Requery