以下是引用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.你函数传过来的参数,没用上