Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT DISTINCT *Fro m {授权}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"bm|yhm")
trv.Nodes.Insert("加载所有数据",0)
'列名称用中文
With Tables("用户授权_Table1")
.Cols("Yhm").Caption = "用户名" ' 指定列标题 *****这里都没有显示出来
.Cols("Bname").Caption = "表名称"
End With