老师，是我刚刚理解错了
我的B表DataColChanged下：
----------------------------------------------------------------------------------------------------
If e.DataCol.Name = "合同号" Then
Dim Filter As String = "[合同号] = '" & e.NewValue & "'"
e.DataRow("到期款金额") = DataTables("A表).Compute("Sum(应付金额)", Filter)
End If
----------------------------------------------------------------------------------------------------
Select Case e.DataCol.Name
Case "所属片区","合同签署人"
If e.DataRow.IsNull("所属片区") OrElse e.DataRow.IsNull("合同签署人") Then
Else
Dim filter As String = CExp("所属片区='{0}' and 合同签署人='{1}'",e.DataRow("所属片区"),e.DataRow("合同签署人"))
Dim dr As DataRow = DataTables("C表").Find(filter)
If dr Is Nothing Then
dr = DataTables("C表").AddNew()
dr("所属片区") = e.DataRow("所属片区")
dr("合同签署人") = e.DataRow("合同签署人")
End If
dr("总应收款") = e.DataTable.Compute("sum(未收款金额)",filter)
dr("到期款") = e.DataTable.Compute("sum(到期款金额)",filter)
End If
End Select
----------------------------------------------------------------------------------------------------
此主题相关图片如下：a.png
我看文档这样写，所以我这样做的，但是后期越来越慢了
[此贴子已经被作者于2017/2/21 14:40:02编辑过]
加好友 
发短信
Post By：2017/2/21 9:52:00 [显示全部帖子]
