循环生成
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")For Each dt As DataTable In DataTables Dim nd As WinForm.TreeNode = trv.Nodes.Add(dt.Name) For Each dc As DataCol In dt.DataCols nd.nodes.Add(dc.name) NextNext