Foxtable(狐表)用户栏目专家坐堂 → 自定义函数 超出数组限制


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

主题:自定义函数 超出数组限制

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


加好友 发短信
等级:九尾狐 帖子:2482 积分:22932 威望:0 精华:0 注册:2011/3/29 17:14:00
自定义函数 超出数组限制  发帖心情 Post By: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

上面代码在时间使用自定义函数 提示超出数组限制

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/11 17:07:00 [只看该作者]

调用函数没有传入e参数

 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2482 积分:22932 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2021/3/11 17:13:00 [只看该作者]

Functions.Execute("单位计算")

不是这样调用吗

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/11 17:25:00 [只看该作者]

2、执行函数

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

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


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


 回到顶部