Foxtable(狐表)用户栏目专家坐堂 → 下拉窗口值中间加点


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

主题:下拉窗口值中间加点

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


加好友 发短信
等级:狐精 帖子:3150 积分:20981 威望:0 精华:0 注册:2016/3/28 16:57:00
下拉窗口值中间加点  发帖心情 Post By:2020/4/28 16:16:00 [只看该作者]

老师,我行政区弄了个下拉窗口,现在出来结果是这样:

四川乐山市市区

怎么让它变为这样:

四川·乐山市·市区

[此贴子已经被作者于2020/4/28 16:16:06编辑过]

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


加好友 发短信
等级:超级版主 帖子:109736 积分:558396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/28 16:21:00 [只看该作者]

没看懂

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


加好友 发短信
等级:狐精 帖子:3150 积分:20981 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2020/4/28 17:27:00 [只看该作者]

我下拉窗口,选择省市县,写入到控件的值是:

四川乐山市市区

想让这个值(省、市、县)中间增加一个符号“·” 

要这个效果:四川·乐山市·市区


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


加好友 发短信
等级:超级版主 帖子:109736 积分:558396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/28 17:30:00 [只看该作者]

数据是怎么样的,怎么写入控件的?我有没有千里眼,能不能把问题描述清楚,而不是要靠猜

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


加好友 发短信
等级:狐精 帖子:3150 积分:20981 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2020/4/29 10:26:00 [只看该作者]

知道怎么写了

If e.Node.Level = 0 Then  '如果是顶层节点
    Return '则返回
End If
'生成数据表
Dim cmd As New SQLCommand
Dim dt As  DataTable
cmd.C
cmd.CommandText = "S  ELECT DISTINCT 省,市,县 From {行政区域}"
dt = cmd.ExecuteReader()

Dim Vals() As String = e.Node.FullPath.Split("\")
Dim Filter As String = "[省] = '" & Vals(0) & "' And [市] = '" & Vals(1) & "' And [县] = '" & Vals(2) & "'"
Dim dr As DataRow = dt.Find(Filter)
Dim r As Row = Tables("分公司成立申请").Current
r("分公司地址") = dr("省") & "·" & dr("市") & "·" & dr("县")
e.Form.Close()


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


加好友 发短信
等级:狐精 帖子:3150 积分:20981 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2020/5/11 13:59:00 [只看该作者]

 

[此贴子已经被作者于2020/5/11 14:00:09编辑过]

 回到顶部