在datacolchanged事件中:有下列错误提示
If e.DataCol.Name = "申请单号" Then
Dim Filter As String = "[申请单号] = '" & e.NewValue & "'"
e.DataRow("工程金额") = DataTables("入库单").SQLCompute("Sum(含税金额)", Filter)
e.DataRow("专piao金额") = DataTables("进项fa piao").SQLCompute("Sum(fa piao金额)", Filter)
'e.DataRow("费用金额") = DataTables("费用录入").SQLCompute("Sum(金额)", "[申请单号] = '" & e.NewValue & "'and 摘要 <> '工程购料'") '这行代码如果把filter放进去改怎样写呢,我目前是屏蔽掉的
e.DataRow("普piao金额") = DataTables("费用录入").SQLCompute("Sum(普piao金额)", Filter)
e.DataRow("无piao金额") = DataTables("费用录入").SQLCompute("Sum(无piao金额)", Filter)
e.DataRow("多piao金额") = DataTables("费用录入").SQLCompute("Sum(多开金额)", Filter)
e.DataRow("欠piao金额") = DataTables("费用录入").SQLCompute("Sum(待开金额)", Filter)
e.DataRow("已预支金额") = DataTables("流水账").SQLCompute("Sum(支出)", Filter)
End If
此主题相关图片如下：sqlcomputer报错提示.png
加好友 
发短信
Post By：2019/5/28 11:08:00 [显示全部帖子]
