老师，下面代码有错误码?入库_数量列的数据没有引用到"客户供应商动态数据汇总"表的"入库_数量"列中。
Select Case e.DataCol.Name
Case "客户ID","客户名称","入库_数量","入库_价税合计"
Dim filter As String = "客户 = '" & e.DataRow("客户名称") & "' and 客户ID = '" & e.DataRow("客户ID") & "'"
If not (e.DataRow.IsNull("客户名称") OrElse e.DataRow.IsNull("客户ID")) Then
Dim fdr As DataRow = DataTables("客户供应商动态数据汇总").Find(filter)
If fdr Is Nothing Then
fdr = DataTables("客户供应商动态数据汇总").AddNew
fdr("客户ID") = e.DataRow("客户ID")
fdr("客户") = e.DataRow("客户名称")
End If
End If
If e.DataCol.Name = "入库_数量" Then
DataTables("客户供应商动态数据汇总").DataCols("客户").RaiseDataColChanged(filter)
Else
DataTables("客户供应商动态数据汇总").DataCols("客户").RaiseDataColChanged()
End If
End Select
加好友 
发短信
Post By：2016/1/18 13:58:00 [只看该作者]
