以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]下拉列表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=139145)
--  作者：wldhj
--  发布时间：2019/8/6 18:45:00
--  [求助]下拉列表

在表属性 AfterEdit里写一段代码，想实现填写不同的“种类”，“品种”列的下拉列表不同：

If e.Row.IsNull("种类")=False Then
    If e.Row("种类")="硬件"
        Tables("填报表").Cols("品种").ComboList ="qq|xx|rr|dd|ff"
    Else
        Tables("填报表").Cols("品种").ComboList ="qq|xx|rr|dd|ff|ee|gg|hh"
    End If
Else e.Row("品种")=""
End If

但是发现不稳定，有时种类是“硬件”时下拉列表也是"qq|xx|rr|dd|ff|ee|gg|hh"。
--  作者：y2287958
--  发布时间：2019/8/6 18:55:00
--  
写在PrepareEdit事件中
If e.IsFocusCell Then
    If e.Col.Name = "品种"
        If e.Row.IsNull("种类")=False Then
            If e.Row("种类")="硬件"
                e.Col.ComboList ="qq|xx|rr|dd|ff"
            Else
                e.Col.ComboList ="qq|xx|rr|dd|ff|ee|gg|hh"
            End If
        Else
            e.Col.ComboList =""
        End If
    End If
End If