主题：如何动态取消列的按钮

设置此列的PrepareEdit事件代码：

If e.IsFocusCell Then
    If e.Col.Name = "列名" Then
        If 条件成立 Then
            e.Col.Combolist = "a|b|c|d" '设置列表项目
        Else
            e.col.Combolist = ""
        End If
    End If
End If

If e.IsFocusCell Then
    If e.Col.Name = "成本名称" Then
        If e.Row("材料") = True Then
            e.Col.Combolist = "..." 

        Else
            e.col.Combolist = ""
        End If
    End If
End If