以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  listview的数据加载  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=51538)

--  作者:魔鬼之神
--  发布时间:2014/5/28 14:20:00
--  listview的数据加载
我在窗口里增加了加载事件:
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw() \'暂停绘制
lvw.Columns.Clear() \'清除原来的列
lvw.Rows.Clear() \'清除原来的行
lvw.View = ViewMode.Details \'显示模式为详细信息
lvw.GridLines = True \'显示网格线
lvw.CheckBoxes=True
Dim cls() As String = {"RQ","DH","KHMC","SHDZ","SGDH","BZ"} \'指定要显示的各列 
Dim wds() As Integer = {100,100,100,180,80,80} \'定义列宽 
For i As Integer = 0 To  cls.Length - 1 
    Dim c As WinForm.ListViewColumn = lvw.Columns.Add() 
    c.Name = cls(i) \'指定列名 
    c.Text = cls(i)\'指定列标题 
    c.Width = wds(i) \'指定列宽 
Next 

For Each dr As DataRow In DataTables("DHD").DataRows \'从数据表中提取数据
    Dim r As  WinForm.ListViewRow =  lvw.Rows.Add() \'增加一行
    For Each cl As String In cls \'逐列取值
     r(cl) = dr(cl)
    Next
Next
lvw.ResumeRedraw()

但是为什么预览出来是没有数据的。是我代码的问题吗?

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140528142034.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2014-5-28 14:21:48编辑过]

--  作者:Bin
--  发布时间:2014/5/28 14:24:00
--  
你表本身没有数据吧,请上例子看看.
--  作者:魔鬼之神
--  发布时间:2014/5/28 14:30:00
--  回复:(Bin)你表本身没有数据吧,请上例子看看.
在SQL后台查是有数据的
--  作者:Bin
--  发布时间:2014/5/28 14:30:00
--  
关键是你前台有没数据. 上个例子吧.
--  作者:魔鬼之神
--  发布时间:2014/5/28 14:39:00
--  回复:(Bin)关键是你前台有没数据. 上个例子吧.
谢谢,你的回复提醒了我。现在可以看到数据了。再请教个问题,listview能加模糊搜索功能吗?有没有相关的例子?
--  作者:Bin
--  发布时间:2014/5/28 14:41:00
--  
模糊搜索表, 然后重新生成LISTVIEW