老师，请教一下，以下代码我单行测试没有问题，但是使用重置代码 DataTables("fa piao台账").DataCols("fa piao号码").RaiseDataColChanged() 后结果有问题出现计算错误，您给看看是什么情况
ElseIf e.DataCol.Name = "fa piao号码" Then
If e.OldValue <> e.NewValue Then
e.DataRow("发生时间") = Date.Now
e.DataRow("经手人") = User.Name
End If
Dim r As Row = Tables("fa piao台账").Current
If r("窗口属性") = "XK" Then
Dim Filter As String = "[fa piao号码] = '" & e.NewValue & "' and [窗口属性] = 'XK' "
e.DataRow("虚开收款金额") = DataTables("财务收支台账").Compute("Sum(收款金额)", Filter)
e.DataRow("虚开付款金额") = DataTables("财务收支台账").Compute("Sum(已付虚开)", Filter)
Dim dr As DataRow
dr= DataTables("财务收支台账").Find("[支付虚开fa piao号码] = '" & e.NewValue & "'")
If dr IsNot Nothing Then '如果找到了同名的fa piao号码行,也就是dr不是Nothing
e.DataRow("支付虚开时间") = dr("财务处理日期")
End If
Else
e.DataRow("虚开收款金额") = Nothing
e.DataRow("虚开付款金额") = Nothing
e.DataRow("支付虚开时间") = Nothing
End If
End If
加好友 
发短信
Post By：2019/7/9 16:58:00 [只看该作者]
