目录树 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

应该是目录树在表上和窗口上显示的问题。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:小区车辆管理（0416）.rar

下载信息 [文件大小：下载次数： ]
点击浏览该文件:小区车辆管理（0413）.zip

此主题相关图片如下：0425.png

我想在窗口的DropDownBox控件中加科目下拉目录树，红色标注部份是我加的代码，结果报错！

Dim Vals() As String = e.Node.FullPath.Split("\")

Dim tr As Row

If e.Form.DropTable IsNot Nothing Then '如果下拉窗口是从表中打开

tr = e.Form.DropTable.Current '获取此表的当前行

Else '如果下拉窗口是通过DropdownBox打开

Dim nm As String = e.Form.DropDownBox.BindingField '获取绑定的字段

If nm > "" Then

nm = nm.Split(".")(0) '获取绑定的表名

tr = Tables(nm).Current '获取此表的当前行

Else

If e.Node.DataRow IsNot Nothing

e.Form.DropDownBox.Value = e.Node.DataRow("会计科目")

e.Form.DropDownBox.CloseDropdown()

Return

End If

e.Form.DropDownBox.Value = Vals(0)

If e.Form.DropTable IsNot Nothing Then

Select Case e.Form.DropTable.Name

Case "财务数据源"

Select Case e.Node.Level

Case 0

tr("会计科目") = Vals(0)

tr("二级科目") = Nothing

tr("三级科目") = Nothing

tr("四级科目") = Nothing

tr("五级科目") = Nothing

e.Form.DropDownBox.Value = tr("会计科目")

e.Form.DropDownBox.CloseDropdown()

Case 1

tr("会计科目") = Vals(0)

tr("二级科目") = Vals(1).SubString(9,Vals(1).Length - 9)

tr("三级科目") = Nothing

tr("四级科目") = Nothing

tr("五级科目") = Nothing

e.Form.DropDownBox.Value = tr("会计科目")

e.Form.DropDownBox.CloseDropdown()

Case 2

tr("会计科目") = Vals(0)

tr("二级科目") = Vals(1).SubString(8,Vals(1).Length - 8)

tr("三级科目") = Vals(2).SubString(13,Vals(2).Length - 13)

tr("四级科目") = Nothing

tr("五级科目") = Nothing

e.Form.DropDownBox.Value = tr("会计科目")

e.Form.DropDownBox.CloseDropdown()

Case 3

tr("会计科目") = Vals(0)

tr("二级科目") = Vals(1).SubString(8,Vals(1).Length - 8)

tr("三级科目") = Vals(2).SubString(12,Vals(2).Length - 12)

tr("四级科目") = Vals(3).SubString(17,Vals(3).Length - 17)

tr("五级科目") = Nothing

e.Form.DropDownBox.Value = tr("会计科目")

e.Form.DropDownBox.CloseDropdown()

Case 4

tr("会计科目") = Vals(0)

tr("二级科目") = Vals(1).SubString(8,Vals(1).Length - 8)

tr("三级科目") = Vals(2).SubString(12,Vals(2).Length - 12)

tr("四级科目") = Vals(3).SubString(16,Vals(3).Length - 16)

tr("五级科目") = Vals(4).SubString(21,Vals(4).Length - 21)

e.Form.DropDownBox.Value = tr("会计科目")

e.Form.DropDownBox.CloseDropdown()

End Select

Case "记账凭证_Table1","转账凭证_Table1"

Select Case e.Node.Level

Case 0

tr("会计科目") = Vals(0)

tr("明细科目") = Nothing

e.Form.DropDownBox.Value = tr("会计科目")

e.Form.DropDownBox.CloseDropdown()

Case 1

tr("会计科目") = Vals(0)

tr("明细科目") = Vals(1).SubString(9,Vals(1).Length - 9)

e.Form.DropDownBox.Value = tr("会计科目")

e.Form.DropDownBox.CloseDropdown()

Case 2

tr("会计科目") = Vals(0)

tr("明细科目") = Vals(1).SubString(8,Vals(1).Length - 8) & "-" & Vals(2).SubString(13,Vals(2).Length - 13)

e.Form.DropDownBox.Value = tr("会计科目")

e.Form.DropDownBox.CloseDropdown()

Case 3

tr("会计科目") = Vals(0)

tr("明细科目") = Vals(1).SubString(8,Vals(1).Length - 8) & "-" & Vals(2).SubString(12,Vals(2).Length - 12) & "-" & Vals(3).SubString(17,Vals(3).Length - 17)

e.Form.DropDownBox.Value = tr("会计科目")

e.Form.DropDownBox.CloseDropdown()

Case 4

tr("会计科目") = Vals(0)

tr("明细科目") = Vals(1).SubString(8,Vals(1).Length - 8) & "-" & Vals(2).SubString(12,Vals(2).Length - 12) & "-" & Vals(3).SubString(16,Vals(3).Length - 16) & "-" & Vals(4).SubString(21,Vals(4).Length - 21)

e.Form.DropDownBox.Value = tr("会计科目")

e.Form.DropDownBox.CloseDropdown()

End Select

Case "收款凭证_Table1"

Select Case e.Node.Level

Case 0

tr("贷方科目") = Vals(0)

tr("明细科目") = Nothing

e.Form.DropDownBox.Value = tr("贷方科目")

e.Form.DropDownBox.CloseDropdown()

Case 1

tr("贷方科目") = Vals(0)

tr("明细科目") = Vals(1).SubString(9,Vals(1).Length - 9)

e.Form.DropDownBox.Value = tr("贷方科目")

e.Form.DropDownBox.CloseDropdown()

Case 2

tr("贷方科目") = Vals(0)

tr("明细科目") = Vals(1).SubString(8,Vals(1).Length - 8) & "-" & Vals(2).SubString(13,Vals(2).Length - 13)

e.Form.DropDownBox.Value = tr("贷方科目")

e.Form.DropDownBox.CloseDropdown()

Case 3

tr("贷方科目") = Vals(0)

tr("明细科目") = Vals(1).SubString(8,Vals(1).Length - 8) & "-" & Vals(2).SubString(12,Vals(2).Length - 12) & "-" & Vals(3).SubString(17,Vals(3).Length - 17)

e.Form.DropDownBox.Value = tr("贷方科目")

e.Form.DropDownBox.CloseDropdown()

Case 4

tr("贷方科目") = Vals(0)

e.Form.DropDownBox.Value = tr("贷方科目")

e.Form.DropDownBox.CloseDropdown()

End Select

Case "付款凭证_Table1"

Select Case e.Node.Level

Case 0

tr("借方科目") = Vals(0)

tr("明细科目") = Nothing

e.Form.DropDownBox.Value = tr("借方科目")

e.Form.DropDownBox.CloseDropdown()

Case 1

tr("借方科目") = Vals(0)

tr("明细科目") = Vals(1).SubString(9,Vals(1).Length - 9)

e.Form.DropDownBox.Value = tr("借方科目")

e.Form.DropDownBox.CloseDropdown()

Case 2

tr("借方科目")= Vals(0)

tr("明细科目") = Vals(1).SubString(8,Vals(1).Length - 8) & "-" & Vals(2).SubString(13,Vals(2).Length - 13)

e.Form.DropDownBox.Value = tr("借方科目")

e.Form.DropDownBox.CloseDropdown()

Case 3

tr("借方科目") = Vals(0)

tr("明细科目") = Vals(1).SubString(8,Vals(1).Length - 8) & "-" & Vals(2).SubString(12,Vals(2).Length - 12) & "-" & Vals(3).SubString(17,Vals(3).Length - 17)

e.Form.DropDownBox.Value = tr("借方科目")

e.Form.DropDownBox.CloseDropdown()

Case 4

tr("借方科目") = Vals(0)

e.Form.DropDownBox.Value = tr("借方科目")

e.Form.DropDownBox.CloseDropdown()

End Select

Else

Select Case e.Form.DropDownBox.Form.Name

Case "三栏式账","三栏式数量金额账","多栏式明细账"

Select Case e.Node.Level

Case 0

tr("会计科目") = Vals(0)

e.Form.DropDownBox.Value = tr("会计科目")

e.Form.DropDownBox.CloseDropdown()

Case 1

tr("会计科目") = Vals(0) & "-" & Vals(1).SubString(9,Vals(1).Length - 9)

e.Form.DropDownBox.Value = tr("会计科目")

e.Form.DropDownBox.CloseDropdown()

Case 2

tr("会计科目") = Vals(0) & "-" & Vals(1).SubString(8,Vals(1).Length - 8) & "-" & Vals(2).SubString(13,Vals(2).Length - 13)

e.Form.DropDownBox.Value = tr("会计科目")

e.Form.DropDownBox.CloseDropdown()

Case 3

tr("会计科目") = Vals(0) & "-" & Vals(1).SubString(8,Vals(1).Length - 8) & "-" & Vals(2).SubString(12,Vals(2).Length - 12) & "-" & Vals(3).SubString(17,Vals(3).Length - 17)

e.Form.DropDownBox.Value = tr("会计科目")

e.Form.DropDownBox.CloseDropdown()

Case 4

tr("会计科目") = Vals(0) & "-" & Vals(1).SubString(8,Vals(1).Length - 8) & "-" & Vals(2).SubString(12,Vals(2).Length - 12) & "-" & Vals(3).SubString(16,Vals(3).Length - 16) & "-" & Vals(4).SubString(21,Vals(4).Length - 21)

e.Form.DropDownBox.Value = tr("会计科目")

e.Form.DropDownBox.CloseDropdown()

End Select

End If

Else

msgbox(e.Form.DropDownBox.Form.Name)

msgbox(tr is nothing)

Select Case e.Form.DropDownBox.Form.Name

Case "三栏式账","三栏式数量金额账","多栏式明细账"

Select Case e.Node.Level

加入你的代码看见弹出提示三栏式账，

此主题相关图片如下：402501.png

也看见有科目填进控件里，只是关闭报错提示点一下窗口里任意一处，控件里的内容消失。

[此贴子已经被作者于2021/4/25 16:02:02编辑过]

msgbox使用来调试查看问题的，学会调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm

我是看了错误提示指向TreeView1,NodeMouseClick才在这里找问题，我已经尽了我的能力找错了，不知道问题在哪，你反复让我看那些错误提示没用！

主题：目录树