Dim cmd As New SQLCommandDim dt As DataTablecmd.Ccmd.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