Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1") tr.BuildTree("表A","第一列|第二列|第三列") Dim dr As DataRow For Each nd As WinForm.TreeNode In tr.AllNodes If nd.AllNodes.Count = 0 Then dr = DataTables("表A").find("[第三列] = '" & nd.name & "'") If dr IsNot Nothing nd.text = dr("第四列") End If End If Next