以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]下拉目录树不能录入  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=39383)

--  作者:zyqzyy
--  发布时间: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:36:20编辑过]

--  作者:dengzhihao
--  发布时间:2013/8/23 0:45:00
--  
应该是这里有问题吧    If e.Node.Level = 1 Then \'如果单击的是第二层节点
--  作者:Bin
--  发布时间:2013/8/23 8:33:00
--  
以下是引用dengzhihao在2013-8-23 0:45:00的发言:
应该是这里有问题吧    If e.Node.Level = 1 Then \'如果单击的是第二层节点

正解
--  作者:zyqzyy
--  发布时间:2013/8/23 13:58:00
--  
If e.Node.Level = 1 Then  改为If e.Node.Level = 2 Then  还是不行?如何修改呢?
--  作者:zyqzyy
--  发布时间:2013/8/23 14:00:00
--  
这句代码(If e.Node.Level = 1 Then  )在试用版中运行正常,而在开发版中却不正常?
--  作者:Bin
--  发布时间:2013/8/23 14:06:00
--  
你好,这个无关试用版开发版,你没搞懂这句代码判断的意思


这句代码的意思是你点击的是第二级节点

也就是说你点击的如果是其他级节点就不进入判断条件了.自然就不执行了.

--  作者:zyqzyy
--  发布时间:2013/8/23 14:08:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:为什么2.png
图片点击可在新窗口打开查看
这是在帮助文件里的代码,实现不了!到这儿卡住了,烦心呀!!
[此贴子已经被作者于2013-8-23 14:09:51编辑过]

--  作者:Bin
--  发布时间:2013/8/23 14:14:00
--  
参考我6楼说的,认真思考一下.  实在不懂你就上个例子,我帮你解决.
--  作者:Bin
--  发布时间:2013/8/23 14:15:00
--  
你自己看帮助的注译 都说的非常清楚了.     If e.Node.Level = 1 Then \'如果单击的是第二层节点
--  作者:zyqzyy
--  发布时间:2013/8/23 17:55:00
--  

谢谢版主,晚上传例子!