以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  单元格绘制的联动问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85480)
--  作者：douglas738888
--  发布时间：2016/5/26 16:43:00
--  单元格绘制的联动问题
请教老师，我设置了单元格绘制，子表统计了金额后，把数据填入到父表中，根据条件逻辑列能自动勾选了，但是主表单元格绘制的变化需要保存表后才变化，不保存不会变化，怎样进行及时变化，是否下面的代码有问题？

子表 DataColChanged
If e.DataCol.Name = "收款金额" Then  \'合同主表.合同收款表根据合同编号SUM子表收款金额到合同主表收款金额列
    Dim pr As DataRow
    pr = DataTables("合同主表").Find("合同编号 = \'" & e.DataRow("合同编号") & "\'")
    If pr IsNot Nothing Then
        pr("收款金额")= DataTables("合同收款").Compute("Sum(收款金额)","[合同编号] = \'" & e.DataRow("合同编号") & "\'")
    End If
End If

父表DataColChanged
If e.DataRow("收付类别") = "收款合同" Then
     If e.DataRow("应收未收") = 0 Then
     e.DataRow("收款完成") = True 
Else
     e.DataRow("收款完成") = False
    End If
End If
--  作者：大红袍
--  发布时间：2016/5/26 16:49:00
--  

强制刷新表格，如

 

Tables("合同主表").Refresh