msgbox(tbl.Current.Hierarchy)
If tbl.Current.Hierarchy = 4 Then '有5个点(第一个节点为0)
e.Form.DropDownBox.Value = tbl.Current.Parent("银行信息") ' 此处代码鼠标双击选择录入的时候,本节点不能赋值,其他节点都可以
Tables("收款单").Current("开户行及账号") = tbl.Current("银行信息")
Tables("收款单").Current("户主") = tbl.Current.Parent.Parent("银行信息")
Tables("收款单").Current("账户性质") = tbl.Current.Parent.Parent.Parent("银行信息")
Tables("收款单").Current("单位") = tbl.Current.Parent.Parent.Parent.Parent("银行信息")
Tables("收款单").Current("单位编码") = tbl.Current.Parent.Parent.Parent.Parent("单位编码")
Tables("收款单").Current("银行编号") = tbl.Current("银行编号")
elseIf tbl.Current.Hierarchy = 3 Then '有4个点(第一个节点为0)
e.Form.DropDownBox.Value = tbl.Current.Parent("银行信息")