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)
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