-- 作者: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编辑过]
|