以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  下拉窗口值中间加点  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149309)
--  作者：cd_tdh
--  发布时间：2020/4/28 16:16:00
--  下拉窗口值中间加点

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

四川乐山市市区

怎么让它变为这样：

四川·乐山市·市区

[此贴子已经被作者于2020/4/28 16:16:06编辑过]
--  作者：有点蓝
--  发布时间：2020/4/28 16:21:00
--  
没看懂
--  作者：cd_tdh
--  发布时间：2020/4/28 17:27:00
--  
我下拉窗口，选择省市县，写入到控件的值是：

四川乐山市市区

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

要这个效果：四川·乐山市·市区
--  作者：有点蓝
--  发布时间：2020/4/28 17:30:00
--  
数据是怎么样的，怎么写入控件的？我有没有千里眼，能不能把问题描述清楚，而不是要靠猜
--  作者：cd_tdh
--  发布时间：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
--  发布时间：2020/5/11 13:59:00
--  

 

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