用SQLCOMMAND生成了一个临时的DT表，ListView 生成的时候提示不存在dt表，，是怎么回事？
此主题相关图片如下：qq截图20140822101929.png
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT * From{用户权限明细} Where 用户ID='" & _UserId & "'"
dt = cmd.ExecuteReader()
dt.DataCols.Add("序号",Gettype(String)) '向查询的临时表 中增加临时列以开成目录树
dt.DataCols.Add("功能组",Gettype(String))
dt.DataCols.Add("分类图标",Gettype(String))
dt.DataCols.Add("模块名称",Gettype(String))
dt.DataCols.Add("模块图标",Gettype(String))
dt.DataCols.Add("打开窗体",Gettype(String))
For Each r As DataRow In dt.DataRows
Dim ds As DataRow = DataTables("功能导航").Find("功能ID ='" & r("功能ID") & "'")
If ds IsNot Nothing
r("序号")=ds("序号")
r("功能组")= ds("功能组")
r("分类图标")= ds("分类图标")
r("模块名称")= ds("模块名称")
r("模块图标")= ds("模块图标")
r("打开窗体")= ds("打开窗体")
End If
Next
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.View = ViewMode.LargeIcon
Dim grps() As String = DataTables("dt").GetComboListString("功能组").Split("|")
Dim gn() As String = DataTables("dt").GetComboListString("模块名称").Split("|")
For Each gp As String In grps 'add group
lvw.Groups.Add(gp)
Next
For Each dr As DataRow In DataTables("dt").DataRows '从数据表中提取数据
Dim vr As WinForm.ListViewRow = lvw.Rows.Add() '增加一行
lvw.Images.AddImage("name1",dr("模块图标"),dr("模块图标"))
vr.Text = dr("模块名称")
vr.Group = dr("功能组")
vr.ImageKey = "name1"
'lvw.Images.RemoveImage("name1")
vr.Tag = dr
Next
加好友 
发短信
Post By：2014/8/22 10:21:00 [只看该作者]
