以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 全局代码出错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175088) |
||||
-- 作者:zhuxinhui -- 发布时间:2022/2/19 12:04:00 -- 全局代码出错 Public Function abc(ByVal a As String, ByVal b As String, ByVal c As String) As Double Dim Ins As Integer Ins = DataTables("工资").sqlCompute("Sum(金额)","员工 =\'"& a &"\' And 年度 = \'"& b &"\' And AD002 = \'"& c &"\'") abc = Ins End Function 这个全局代码哪里出错了 引用 ABC(1002,2021,01) 时计算不出来
|
||||
-- 作者:有点蓝 -- 发布时间:2022/2/19 13:50:00 -- 有符合条件的数据吗 Public Function abc(ByVal a As String, ByVal b As String, ByVal c As String) As Double Dim Ins As double Ins = DataTables("工资").sqlCompute("Sum(金额)","员工 =\'"& a &"\' And 年度 = \'"& b &"\' And AD002 = \'"& c &"\'") msgbox(ins) return Ins End Function |
||||
-- 作者:zhuxinhui -- 发布时间:2022/2/19 13:56:00 -- 有符合条件的值 |
||||
-- 作者:zhuxinhui -- 发布时间:2022/2/19 13:58:00 -- 我已直接使用公式代替入去试过,求得出值 |
||||
-- 作者:有点蓝 -- 发布时间:2022/2/19 14:03:00 -- msgbox(ins)这里显示是否有值?如果有函数肯定没有问题,检查其它地方代码 |
||||
-- 作者:zhuxinhui -- 发布时间:2022/2/19 15:10:00 -- 此主题相关图片如下:qq截图20220219151026.png 此主题相关图片如下:qq截图20220219150959.png |
||||
-- 作者:zhuxinhui -- 发布时间:2022/2/19 15:10:00 --
|
||||
-- 作者:有点蓝 -- 发布时间:2022/2/19 15:53:00 -- 同样的问题不要多处发帖:http://www.foxtable.com/bbs/index.asp?boardid=2&page= |