Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
'从"数据字典"表取数生成目录树Dim dt As DataTableDim cmd As New SQLCommandcmd.Ccmd.CommandText = "SELECT * From {数据字典} ORDER BY 序号"dt = cmd.ExecuteReader()tr.BuildTree(dt,"数据名称|值")