以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何在一列中设置动态列表项目时,不符合条件的直接采用输入方式呢  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=129237)

--  作者:zpsun2003
--  发布时间:2018/12/24 21:23:00
--  [求助]如何在一列中设置动态列表项目时,不符合条件的直接采用输入方式呢
如何在一列中设置动态列表项目时,不符合条件的直接采用输入方式呢?  问号那应该写什么可以动态取消列表项目呢?

If e.IsFocusCell Then
    If e.Col.Name = "选项1" Then
        Dim dr As DataRow 
        dr = DataTables("初始化表_选择参数").Find("项目名称1 = \'" & e.Row("参数名称1") & "\'")
        If dr IsNot Nothing Then  \'一定要判断是否存在对应的行
            e.Col.ComboList = dr("列表项目1")
        Else
            e.Col.ComboList = ????
        End If
    End If
End If
\'以上为动态定义初始化表中列表项目

--  作者:有点蓝
--  发布时间:2018/12/24 22:06:00
--  
e.Col.ComboList = nothing
--  作者:zpsun2003
--  发布时间:2018/12/24 22:46:00
--  
解决,谢谢