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


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

主题:Drawcell 使用自定义函数

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


加好友 发短信
等级:童狐 帖子:208 积分:2128 威望:0 精华:0 注册:2018/10/8 13:32:00
Drawcell 使用自定义函数  发帖心情 Post By:2021/7/2 13:22:00 [只看该作者]

Drawcell 这段如果改成自定义函数

Select e.Row("订单标记")
     Case "配件"
        If e.Row("订单状态") = "已发货" Then
            e.Style = "已发整车"
        ElseIf e.Row("订单状态") = "待发货"Then
            e.Style = "待发货整车"
            
        ElseIf e.Row("行业务状态") = "已冻结"Then
            e.Style = "已冻结整车"
        End If
end select
[此贴子已经被作者于2021/7/2 13:24:36编辑过]

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


加好友 发短信
等级:童狐 帖子:208 积分:2128 威望:0 精华:0 注册:2018/10/8 13:32:00
  发帖心情 Post By:2021/7/2 13:39:00 [只看该作者]

有多个地方,使用这段代码?
我要用自定义函数。

有其他的方式吗?

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/2 13:46:00 [只看该作者]

比如函数

dim e  = args(0)
Select e.Row("订单标记")
     Case "配件"
        If e.Row("订单状态") = "已发货" Then
            e.Style = "已发整车"
        ElseIf e.Row("订单状态") = "待发货"Then
            e.Style = "待发货整车"
            
        ElseIf e.Row("行业务状态") = "已冻结"Then
            e.Style = "已冻结整车"
        End If
end select

Drawcell 事件
Functions.Execute("xx函数",e)


 回到顶部