- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- listview 不能通过SQL临时表生成吗？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=55735)
-- 发布时间：2014/8/22 10:21:00
-- listview 不能通过SQL临时表生成吗？
用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
-- 发布时间：2014/8/22 10:23:00
--
不能这么用的亲.
Dim grps() As String = dt.GetComboListString("功能组").Split("|")
Dim gn() As String = dt.GetComboListString("模块名称").Split("|")
-- 发布时间：2014/8/22 10:24:00
--
呃，没有这种用法 DataTables("dt")
要改成 dt.
-- 发布时间：2014/8/22 10:31:00
--
甜老师，说的是，我真是犯晕了，，，唉，，，低级的错误 。