我想做一个页面集合的通用会计科目目录树，结果没有目录树显示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

密码：888888

[此贴子已经被作者于2021/3/15 0:42:18编辑过]

你在收、付、转、记账四类凭证的会计科目下拉目录树点下就看到效果和问题了。

我没看你的回复之前就知是这问题了，已经全调为4位了，有点长，这问题暂时解决，现在的问题是录入问题，在收、付、转、记账凭证中为打印方便二级科目及以下的都用“_”连接显示在明细科目里，不显示科目代码，如：

　一级科目　　　　　　明细科目

1122应收账款　巷_号_房_车牌号码

1122应收账款　广东省_江门市_某某单位

我解决了：

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 '获取绑定的字段

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

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

End If

If e.Form.DropTable IsNot Nothing Then

Select Case e.Form.DropTable.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)

tr("二级科目") = Vals(1)

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

e.Form.DropDownBox.CloseDropdown()

Case 2

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

tr("二级科目") = Vals(1)

tr("三级科目") = Vals(2)

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

e.Form.DropDownBox.CloseDropdown()

Case 3

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

tr("二级科目") = Vals(1)

tr("三级科目") = Vals(2)

tr("四级科目") = Vals(3)

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

e.Form.DropDownBox.CloseDropdown()

Case 4

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

tr("二级科目") = Vals(1)

tr("三级科目") = Vals(2)

tr("四级科目") = Vals(3)

tr("五级科目") = Vals(4)

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

e.Form.DropDownBox.CloseDropdown()

End Select

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)

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

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(12,Vals(2).Length - 12)

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(16,Vals(3).Length - 16)

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(20,Vals(4).Length - 20)

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

e.Form.DropDownBox.CloseDropdown()

End Select

[此贴子已经被作者于2021/3/15 13:29:33编辑过]

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)

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

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(12,Vals(2).Length - 12)

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(16,Vals(3).Length - 16)

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 "付款凭证"

Select Case e.Node.Level

Case 0

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

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

e.Form.DropDownBox.CloseDropdown()

Case 1

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

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

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(12,Vals(2).Length - 12)

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(16,Vals(3).Length - 16)

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

End If

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

密码：888888

下载信息 [文件大小：下载次数： ]
点击浏览该文件:小区车辆管理（发到会计科目的帖下）.rar

密码：888888

科目窗口的科目输入很乱：

一、在财务数据源表会计科目列下的科目目录树中点资产类科目录入正常，点负债、所有者权益、损益类科目录入到收付转财务数据源表中的一级以下科目全多了科目代码显示；

二、在记账凭证窗口会计科目列下的科目目录树中点资产类科目录入正常，点负债、所有者权益、损益类科目一级科目，二级科目不显示，这是对的，但只要点取过一级以下科目重新点一级科目，一级以下科目没为空，这就不对了，应点一级科目时，一级以下科目自动全为空，点目录树哪级科目记账凭证窗口中的明细科目组合到哪级科目为止。

三、在收付转财务数据源表会计科目列下的科目目录树中点资产类科目录入正常，点负债、所有者权益、损益类科目全部无法录入到收付转财务数据源表中，这样不正常；

四、在收款凭证、付款凭证、转账凭证窗口中分别的贷方科目、借方科目、会计科目目录树情况跟上面第二点一样。

收付转凭证中根本不存在二级、三级、四级科目、五级科目的，只有在保存凭证时用代码把凭证中的科目再分列保存到收付转财务数据源的中，因此收、付、转的科目目录树只去到二级节字，各级的科目用连接线相隔。

因为科目代码与科目间有空格，我把最后的截取字符数字加大了1：

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 '获取绑定的字段

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

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

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)

Vals(1) = Nothing

Vals(2) = Nothing

Vals(3) = Nothing

Vals(4) = Nothing

tr("明细科目") = Nothing

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

e.Form.DropDownBox.CloseDropdown()

Case 1

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

Vals(2) = Nothing

Vals(3) = Nothing

Vals(4) = Nothing

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

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

e.Form.DropDownBox.CloseDropdown()

Case 2

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

Vals(3) = Nothing

Vals(4) = Nothing

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)

Vals(4) = Nothing

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)

Vals(1) = Nothing

Vals(2) = Nothing

Vals(3) = Nothing

Vals(4) = Nothing

tr("明细科目") = Nothing

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

e.Form.DropDownBox.CloseDropdown()

Case 1

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

Vals(2) = Nothing

Vals(3) = Nothing

Vals(4) = Nothing

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

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

e.Form.DropDownBox.CloseDropdown()

Case 2

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

Vals(3) = Nothing

Vals(4) = Nothing

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)

Vals(4) = Nothing

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)

Vals(1) = Nothing

Vals(2) = Nothing

Vals(3) = Nothing

Vals(4) = Nothing

tr("明细科目") = Nothing

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

e.Form.DropDownBox.CloseDropdown()

Case 1

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

Vals(2) = Nothing

Vals(3) = Nothing

Vals(4) = Nothing

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

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

e.Form.DropDownBox.CloseDropdown()

Case 2

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

Vals(3) = Nothing

Vals(4) = Nothing

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)

Vals(4) = Nothing

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

End If

但还是不行。

主题：我想做一个页面集合的通用会计科目目录树，结果没有目录树显示