以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  利用目录树功能在一个列中显示省市县  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=31624)
--  作者：syzsyk
--  发布时间：2013/4/18 11:22:00
--  利用目录树功能在一个列中显示省市县
利用目录树功能怎么在窗口输入中实现选县市后在一个列中显示省市县？
--  作者：XYT
--  发布时间：2013/4/18 11:27:00
--  
http://www.foxtable.com/help/topics/1483.htm
--  作者：Bin
--  发布时间：2013/4/18 11:28:00
--  
请参考帮助 http://www.foxtable.com/help/topics/1458.htm
--  作者：syzsyk
--  发布时间：2013/4/18 12:02:00
--  

我想要的是点开湖北然后点荆州在一个列中显示为湖北荆州
--  作者：Bin
--  发布时间：2013/4/18 12:04:00
--  
以下是引用syzsyk在2013-4-18 12:02:00的发言：

我想要的是点开湖北然后点荆州在一个列中显示为湖北荆州

一样的原理,有何区别? 分别2个列 放 湖北 荆州 和在一个列放 湖北荆州
--  作者：XYT
--  发布时间：2013/4/18 12:04:00
--  

http://www.foxtable.com/help/index.html?n=1420.htm

 
--  作者：syzsyk
--  发布时间：2013/4/18 13:10:00
--  

If e.Node.Level = 1 Then \'如果单击的是第二层节点
    Dim ps() As String = e.Node.FullPath.Split("\\")
    Dim tr As Row = Tables("客户").Current
    Dim dr As DataRow = DataTables("行政区域").Find("省市区 = \'" & ps(0) & "\' And 县市 = \'" & ps(1) & "\'")
    If dr IsNot Nothing Then \'如果在行政区域表找到对应的行,则将此行的值写入客户表的当前行.
           tr("县市") = dr("省市区" And "县市")
           e.Form.DropDownBox.Value = tr("县市") \'这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
    End If
    e.Form.DropDownBox.CloseDropdown()  \'关闭下拉目录树
End If

红色部分最终实现类似“湖北荆州”对吗？错了怎么写？
--  作者：XYT
--  发布时间：2013/4/18 14:17:00
--  
tr("县市") = dr("省市区"）+ dr("县市")
--  作者：syzsyk
--  发布时间：2013/4/18 16:08:00
--  

问题解决，又学到一些知识。非常感谢XYT！