以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  Drawcell 使用自定义函数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169830)
--  作者：瑞峰
--  发布时间：2021/7/2 13:22:00
--  Drawcell 使用自定义函数
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编辑过]
--  作者：瑞峰
--  发布时间：2021/7/2 13:39:00
--  
有多个地方，使用这段代码？
我要用自定义函数。

有其他的方式吗？
--  作者：有点蓝
--  发布时间：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)