Foxtable(狐表)用户栏目专家坐堂 → 请教一段语法


  共有2739人关注过本帖树形打印复制链接

主题:请教一段语法

帅哥哟,离线,有人找我吗?
ygg8310
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:989 积分:8833 威望:0 精华:0 注册:2016/4/10 14:33:00
请教一段语法  发帖心情 Post By: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

如果项目表中有很多列这个代码应该怎么写呀,例如国籍,省,地级市,县县市,区镇,村,组,这个语法是怎样的?



 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部