以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自定义函数 超出数组限制  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=161270)
--  作者：yifan3429
--  发布时间：2021/3/11 16:40:00
--  自定义函数 超出数组限制
Dim e  = args(0)
pause = True
Select Case e.DataCol.Name
    Case "单位","长","宽","厚"
        
        If e.DataRow("单位") ="平方米"  Then
            e.DataRow("单量")  =  e.DataRow("长") * e.DataRow("宽")
        Else If e.DataRow("单位") ="投影面积"  Then
            e.DataRow("单量")  =  e.DataRow("长") * e.DataRow("宽") * e.DataRow("厚")
        Else
            MessageBox.Show("没有对应的单位,请联系管理员")
        End If
        
End Select

上面代码在时间使用自定义函数 提示超出数组限制
--  作者：有点蓝
--  发布时间：2021/3/11 17:07:00
--  
调用函数没有传入e参数
--  作者：yifan3429
--  发布时间：2021/3/11 17:13:00
--  
Functions.Execute("单位计算")

不是这样调用吗
--  作者：有点蓝
--  发布时间：2021/3/11 17:25:00
--  

2、执行函数

Foxtable提供了一个Functions类型，用于管理和执行自定义函数，执行自定义函数的语法为：

Functions.Execute(函数名, 参数1, 参数2, 参数3....)


Functions.Execute("单位计算"，e)