If e.Node.Level = 0 Then '如果是顶层节点
Return '则返回
End If
Dim Vals() As String = e.Node.FullPath.Split("\")
Dim Filter As String = "[帐户名] = '" & Vals(0) & "' And [开户行] = '" & Vals(1) & "'"
Dim dr As DataRow = DataTables("银行资料").Find(Filter)
Dim r As Row = Tables("项目收款登记").Current
If dr Is Nothing OrElse r Is Nothing
msgbox("没有查询到合适的数据!")
Return
End If
r("帐户名") = dr("帐户名")
r("帐号") = dr("帐号")
r("开户行") = dr("开户行")
e.Form.Close()
加好友 
发短信
Post By：2017/4/10 15:25:00 [显示全部帖子]
