以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  无法正确显示  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119058)
--  作者：13861676007
--  发布时间：2018/5/16 23:23:00
--  无法正确显示
请教老师
pkmbm 是公共代码 = “1002”
Dim ssa As Double = Tables("凭证记录表").Compute("sum(借方金额)", "科目代码 Like \'" & pkmbm & "\'")
执行上述代码： SSA 显示是 1000 的数据
pkmbm = "\'%" & pkmbm & "%\'"
Dim ssa As Double = Tables("凭证记录表").Compute("sum(借方金额)", "科目代码 Like \'" & pkmbm & "\'")
加上pkmbm = "\'%" & pkmbm & "%\'" 后数据显示为0 为什么 ，我的目的是科目代码中含有“1002” 字符的全部计算出来，错在哪了？

pkmbm = "\'%" & pkmbm & "%\'"
f.SourceTable = DataTables("凭证记录表") \'指定数据来源
f.Filter = "科目代码 like \'" & pkmbm & "\'"
f.SourceCols = "填制日期,凭证号,摘要,借方金额,贷方金额" \'指定数据来源列
f.DataTable = DataTables("分类明细账") \'指定数据接收表
f.DataCols = "日期,凭证号,摘要,借方金额,贷方金额" \'指定数据接收列
f.Fill()
出现错误码：无法在 System.String 和 System.Int32 上执行“Mod”操作。 请教怎改？
--  作者：有点甜
--  发布时间：2018/5/16 23:48:00
--  

1、修改代码，单引号不能重复

 

pkmbm = "\'%" & pkmbm & "%\'"

Dim ssa As Double = Tables("凭证记录表").Compute("sum(借方金额)", "科目代码 Like " & pkmbm & "")
 
2、
 
f.Filter = "科目代码 like \'" & pkmbm & "\'"
 
改成
 
f.Filter = "科目代码 like " & pkmbm & ""