- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 自动输入：省市 县市 再多一级选择 区(已解决！谢谢！) (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=151379)
-- 发布时间：2020/6/22 12:47:00
-- 自动输入：省市 县市 再多一级选择 区(已解决！谢谢！)
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:自动输入.foxdb |
选择省市可以选择县市，希望能多一级，选择 （区）。例如：选择成都市后：区列：显示成都的几个区。
怎么改呢？谢谢！
[此贴子已经被作者于2020/6/22 15:01:50编辑过]
-- 发布时间：2020/6/22 13:33:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:自动输入.zip |
-- 发布时间：2020/6/22 13:53:00
--
感谢！ 如果用sql 哪这个代码怎么改呢？
-- 发布时间：2020/6/22 14:07:00
--
一样是加一个条件啊，有区别吗？
cmd.CommandText = "SELECT DISTINCT 县市 From {行政区域} Where [省市] = \'" & e.Row("省市") & "\' and xxx列=\'" & e.Row("xxx列") & "\'"
-- 发布时间：2020/6/22 14:13:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:sql代码2.txt |
我很菜，麻烦您！改一哈呢
[此贴子已经被作者于2020/6/22 14:17:44编辑过]
-- 发布时间：2020/6/22 14:17:00
--
没看懂这些种类、类别之间的关系，请上传实例说明
-- 发布时间：2020/6/22 14:27:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:sql代码3.txt |
抱歉！是我没有表述清楚。还是要麻烦您！
-- 发布时间：2020/6/22 14:37:00
--
If e.IsFocusCell Then
If e.Col.Name = "县市" Then
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "SERVER"
cmd.CommandText = "SELECT DISTINCT 县市 From {行政区域} Where [省市] = \'" & e.Row("省市") & "\'"
dt = cmd.ExecuteReader
e.Col.Combolist = dt.GetComboListString("县市")
ElseIf e.Col.Name = "区" Then
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "SERVER"
cmd.CommandText = "SELECT DISTINCT 县市 From {行政区域} Where [省市] = \'" & e.Row("省市") & "\'and 县市=\'" & e.Row("县市") & "\'"
dt = cmd.ExecuteReader
e.Col.Combolist = dt.GetComboListString("区")
End If
End If
-- 发布时间：2020/6/22 15:02:00
--
谢谢！您!