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

Case "收款凭证_Table1"

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

Case "付款凭证_Table1"

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

项目看28楼上传的文件。

主题：会计凭证的设计和录入