参考：http://www.foxtable.com/webhelp/topics/1451.htm
客户交费表datacolchanged事件
Select Case e.DataCol.Name
Case "客户编号","客户交费时间","客户交费金额"
Dim dr As DataRow = e.DataTable.Find("客户编号='" & e.DataRow("客户编号") & "'")
If dr IsNot Nothing Then
DataTables("客户资料表").DataCols("客户编号").RaiseDataColChanged(dr)
End If
End Select
客户资料表datacolchanged事件
Select Case e.DataCol.Name
Case "客户编号"
Dim dr As DataRow = DataTables("客户交费表").Find("客户编号='" & e.DataRow("客户编号") & "'","客户交费时间 desc")
If dr IsNot Nothing Then
e.DataRow("最后交费金额") = dr("客户交费金额")
End If
End Select
加好友 
发短信
Post By：2019/7/16 20:35:00 [只看该作者]
