前阵子,用UMV平台做一个新增窗体,是主子窗体架构,主窗体有一控件的值来源于子窗体的一个计算控件值。在主窗体的保存事件中,当把此控件值赋给表中的某条记录时,却发现得到的是控件,也就是计算控件的值没有得到及时更新。把我给急坏了,试了其它几种曲线方案,虽然解决了问题,但代码增加了,很不爽,于是按F1键打开帮助。终于找到答案。在子窗体的退出事件中,加了一句代码就解决了。
Private Sub frmChild_Exit(Cancel As Integer)
'更新合计金额
If Not IsError(Me.txtSum1) And Nz(Me.je1) <> Me.txtSum1 Then
Me.je1 = Me.txtSum1 '控件属性不可用,照样可赋值
End If
Me.Recalc '刷新计算控件值
End Sub