Foxtable(狐表)用户栏目专家坐堂 → 自定义函数


  共有2182人关注过本帖树形打印复制链接

主题:自定义函数

帅哥哟,离线,有人找我吗?
xxcwdlwgo
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:157 积分:2001 威望:0 精华:0 注册:2012/5/29 15:35:00
  发帖心情 Post By:2019/5/10 22:20:00 [显示全部帖子]

以下是引用wh420在2019/5/6 17:23:00的发言:
自定义函数(TEST)我尝试这样写: 
Dim bakZhiChu As Double = Args(0)
 Dim Filter As String
 Filter = "zhichuAcc = '备用金'"
 bakZhiChu = DataTables("Table_zhichu").SqlCompute("Sum(zhichuMoney)",Filter)
 Return bakZhiChu

在任意窗口中调用我想实现这样

Dim lbl As WinForm.Label = e.Form.Controls("Label1")
Functions.Execute("TEST",lbl.text))

但程序报错,请问老师帮忙改一下。

1.类型不对。2.你函数传过来的参数,没用上


 回到顶部