原因：
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
加好友 
发短信
Post By：2024/12/15 21:42:00 [显示全部帖子]
