合同台账If e.DataCol.Name = "内部合同编号" Then Dim Filter As String = "[内部合同编号] = '" & e.NewValue & "'"
e.DataRow("入库金额合计") = DataTables("入库信息").Compute("Sum(当月入库金额)", Filter)
End If
If e.DataCol.Name = "内部合同编号" Then
Dim Filter As String = "[内部合同编号] = '" & e.NewValue & "'"
e.DataRow("销售合计") = DataTables("货款回笼信息").Compute("Sum(开piao金额)", Filter)
e.DataRow("到款合计") = DataTables("货款回笼信息").Compute("Sum(到款金额)", Filter)
End If
入库信息
Select Case e.DataCol.Name
Case "当月入库金额"
Dim pr As DataRow
pr = DataTables("合同台帐").Find("内部合同编号 = '" & e.DataRow("内部合同编号") & "'")
If pr IsNot Nothing Then
DataTables("合同台帐").DataCols("内部合同编号").RaiseDataColChanged(pr)
End If
End Select
货款回笼信息
Select Case e.DataCol.Name
Case "到款金额","开piao金额"
Dim pr As DataRow
pr = DataTables("合同台帐").Find("内部合同编号 = '" & e.DataRow("内部合同编号") & "'")
If pr IsNot Nothing Then
DataTables("合同台账").DataCols("内部合同编号").RaiseDataColChanged(pr)
End If
End Select
入库信息和货款回笼信息有更新后，进入合同台帐必须要重置内部合同编号列，其入库金额合计、销售合计和到款合计才能更新，怎样才能只需切换到合同台账表就能自动更新？
另外入库信息表没问题，但货款回笼信息表错误提示：不存在名为“合同台帐”的Date table！
.NET Framework 版本：2.0.50727.8762
Foxtable 版本：2018.3.9.1
错误所在事件：表，货款回笼信息，DataColChanged
详细错误信息：
调用的目标发生了异常。
未将对象引用设置到对象的实例。
是什么原因？
加好友 
发短信
Post By：2018/4/18 11:35:00 [只看该作者]
