以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  表达式列数据变动事件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=194485)
--  作者：qq51837000
--  发布时间：2024/12/15 21:32:00
--  表达式列数据变动事件
已付金额 表达式：Sum(Child(对账付款2).付款金额)
应付余额 表达式：IsNull([应付金额],0) - IsNull([已付金额],0)

DataColChanged 事件代码：

Select Case e.DataCol.Name
    Case "应付余额"
        If e.NewValue <= 0 Then
            Dim D As New Date(2099, 1, 1)
            e.DataRow("最后付款期限") = D
        End If 
 
End Select

老师，请帮看一下：当余额<=0时，最后付款期限怎么没有反应?
--  作者：有点蓝
--  发布时间：2024/12/15 21:42:00
--  
原因：http://www.foxtable.com/webhelp/topics/2381.htm

父表DataColChanged 事件代码：
Select Case e.DataCol.Name
    Case "应付金额"
        If e.NewValue - e.DataRow("已付金额") <= 0 Then
            Dim D As New Date(2099, 1, 1)
            e.DataRow("最后付款期限") = D
        End If 
End Select

子表DataColChanged 事件代码：
Select Case e.DataCol.Name
    Case "付款金额"
    Dim pr As DataRow = e.DataRow.GetParentRow("父表名称") 
    If pr IsNot Nothing Then
        DataTables("父表名称").DataCols("应付金额").RaiseDataColChanged(pr)
    End If
End Select