以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  CellButtonClick中能否根据列中的值启用单元格按钮  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=166075)
--  作者：cqlwsam
--  发布时间：2021/5/17 15:34:00
--  CellButtonClick中能否根据列中的值启用单元格按钮
表中有一列（"收费登记信息"），根据表中其它列给其赋值，当其值为“需要”，启用单元格按钮功能。能实现吗？谢谢！
代码如下，试了试不行。

If e.Col.Name = "收费登记信息" Then
    Dim txt As String = e.Row("收费登记信息")
    If txt = "需要" Then
        CurrentTable.Cols("收费登记信息").ComboList = "|..."
        e.Cancel = True \'取消默认动作
        \'    Forms("窗口1").Open()
    End If
End If
--  作者：有点蓝
--  发布时间：2021/5/17 15:45:00
--  
prepareedit事件

If e.Col.Name = "收费登记信息" Then
    Dim txt As String = e.Row("收费登记信息")
    If txt = "需要" Then
        e.Col.ComboList = "|..."
else
        e.Col.ComboList = nothing
    End If
End If