7,714
社区成员
发帖
与我相关
我的任务
分享
Private Sub 保存_Click()
CurrentProject.Connection.Execute "update A1 LEFT JOIN A2 ON A1.MDId = A2.MDID set A2.[实际完工日期]=#" & Me.实际完工日期.Value & "#,A2.MDId = A1.MDID where A1.单据编号='" & Me.单据编号.Value & "'"
Forms![A]![B].Requery
End Sub