更新计算控件命令解决大问题

时　间:2008-09-22 21:07:38
作　者:me   ID：17  城市：秦皇岛
摘　要:用刷新计算控件值的方法，解决了保存事件中的问题。
正　文:

前阵子，用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