以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教一段语法  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=142503)
--  作者：ygg8310
--  发布时间：2019/10/29 11:02:00
--  请教一段语法

If e.IsFocusCell Then \'如果是焦点所在单元格
    If e.Col.Name = "县市" Then \'如果正在编辑的是县市列
        \'从行政区域表提取该省市的县市作为列表项目
        e.Col.Combolist = DataTables("行政区域").GetComboListString("县市", "[省市] = \'" & e.Row("省市") & "\'")
    End If
End If

如果项目表中有很多列这个代码应该怎么写呀，例如国籍,省，地级市，县县市，区镇，村，组，这个语法是怎样的？
--  作者：有点蓝
--  发布时间：2019/10/29 11:28:00
--  
例如

If e.IsFocusCell Then \'如果是焦点所在单元格
    If e.Col.Name = "县市" Then \'如果正在编辑的是县市列
        \'从行政区域表提取该省市的县市作为列表项目
        e.Col.Combolist = DataTables("行政区域").GetComboListString("县市", "[省市] = \'" & e.Row("省市") & "\'") 
elseif e.Col.Name = "区镇" Then
        e.Col.Combolist = DataTables("行政区域").GetComboListString("区镇", "[省市] = \'" & e.Row("省市") & "\' and [县市] = \'" & e.Row("县市") & "\'") 
elseif e.Col.Name = "xxxx...........
……
    End If
End If