已付金额 表达式:Sum(Child(对账付款2).付款金额)应付余额 表达式:IsNull([应付金额],0) - IsNull([已付金额],0)
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时,最后付款期限怎么没有反应?
原因:
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