以文本方式查看主题 - 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() 但是为什么预览出来是没有数据的。是我代码的问题吗?
[此贴子已经被作者于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 |