- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- SQLCompute的条件表达式 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=135500)
-- 发布时间：2019/5/28 11:08:00
-- SQLCompute的条件表达式
在datacolchanged事件中:有下列错误提示
If e.DataCol.Name = "申请单号" Then
Dim Filter As String = "[申请单号] = \'" & e.NewValue & "\'"
e.DataRow("工程金额") = DataTables("入库单").SQLCompute("Sum(含税金额)", Filter)
e.DataRow("专票金额") = DataTables("进项发票").SQLCompute("Sum(发票金额)", Filter)
\'e.DataRow("费用金额") = DataTables("费用录入").SQLCompute("Sum(金额)", "[申请单号] = \'" & e.NewValue & "\'and 摘要 <> \'工程购料\'") \'这行代码如果把filter放进去改怎样写呢,我目前是屏蔽掉的
e.DataRow("普票金额") = DataTables("费用录入").SQLCompute("Sum(普票金额)", Filter)
e.DataRow("无票金额") = DataTables("费用录入").SQLCompute("Sum(无票金额)", Filter)
e.DataRow("多票金额") = DataTables("费用录入").SQLCompute("Sum(多开金额)", Filter)
e.DataRow("欠票金额") = DataTables("费用录入").SQLCompute("Sum(待开金额)", Filter)
e.DataRow("已预支金额") = DataTables("流水账").SQLCompute("Sum(支出)", Filter)
End If
此主题相关图片如下：sqlcomputer报错提示.png
-- 发布时间：2019/5/28 11:13:00
--
红色的列名，不在后台数据库里面，不能是表达式列
e.DataRow("费用金额") = DataTables("费用录入").SQLCompute("Sum(金额)", "[申请单号] = \'" & e.NewValue & "\'and 摘要 <> \'工程购料\'")