主题：[求助]使用树后台表填写数据

各位老师：

我使用了BuildTree生成一个树，想通过双击树的末级节点来填充相关的对应数据，但这个表是后台的SQL表，借帮助中的代码

黄色的底色的代码如何能改成后台表来取信息呢？

If e.Node.Level = 0 Or e.node.level = 1 Then '如果是顶层或二层节点
    Return '则返回
End If
Dim Vals() As String = e.Node.FullPath.Split("\")
Dim Filter As String = "[部门] = '" & Vals(0) & "' And [部门1] = '" & Vals(1) & "' And [部门2] = '" & Vals(2) & "'"
Dim dr As DataRow = DataTables("员工信息库").Find(Filter)
Dim r As Row = Tables("费用报销明细表").Current
r("费用承担部门") = dr("部门")
r("费用承担部门二级") = dr("部门1")
r("费用承担部门三级") = dr("部门2")
e.Form.Close()

用SQLCommand修改后台数据：

http://www.foxtable.com/help/topics/0690.htm

http://www.foxtable.com/help/topics/0696.htm