- 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=39383)
-- 发布时间：2013/8/22 23:49:00
-- [求助]下拉目录树不能录入
请各位大狐帮助一下：下拉目录树不能录入问题，代码如下：
目录树A_AfterLoad
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("行政区域","省|州市|县区|乡镇|居委会|村组")
目录树A_Button1_Click
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("行政区域","乡镇|居委会|村组")
目录树A_TreeView1_NodeMouseClick
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("省")
tr("州市") = dr("州市")
tr("县区") = dr("县区")
tr("乡镇") = dr("乡镇")
tr("居委会") = dr("居委会")
tr("村组") = dr("村组")
e.Form.DropDownBox.Value = tr("乡镇")
End If
e.Form.DropDownBox.CloseDropdown() \'关闭下拉目录树
<!--EndFragment-->
此主题相关图片如下：目录树.png
这是开发版，同样的代码在试用版中能用，开发版就出现这个问题？？此主题相关图片如下：为什么.png
在开发版中出现这个问题！此主题相关图片如下：为什么？.png
-- 发布时间：2013/8/23 0:45:00
--
应该是这里有问题吧 If e.Node.Level = 1 Then \'如果单击的是第二层节点
-- 发布时间：2013/8/23 8:33:00
--
应该是这里有问题吧 If e.Node.Level = 1 Then \'如果单击的是第二层节点
-- 发布时间：2013/8/23 13:58:00
--
If e.Node.Level = 1 Then 改为If e.Node.Level = 2 Then 还是不行？如何修改呢？
-- 发布时间：2013/8/23 14:00:00
--
这句代码（If e.Node.Level = 1 Then ）在试用版中运行正常，而在开发版中却不正常？
-- 发布时间：2013/8/23 14:06:00
--
你好,这个无关试用版开发版,你没搞懂这句代码判断的意思
-- 发布时间：2013/8/23 14:08:00
--
此主题相关图片如下：为什么2.png
这是在帮助文件里的代码，实现不了！到这儿卡住了，烦心呀！！
-- 发布时间：2013/8/23 14:14:00
--
参考我6楼说的,认真思考一下. 实在不懂你就上个例子,我帮你解决.
-- 发布时间：2013/8/23 14:15:00
--
你自己看帮助的注译 都说的非常清楚了. If e.Node.Level = 1 Then \'如果单击的是第二层节点
-- 发布时间：2013/8/23 17:55:00
--
谢谢版主，晚上传例子！