主题：[求助] 列表视图 分类显示表中数据

1、分组名你要如何修改？你可以添加一个辅助列，对应的分组改成你想修改的名称

 

2、你可以控制预约表的加载条件，只加载今天数据；也可以直接在生成listview数据的时候，加上筛选条件

我不知道怎么添加自定义分组列，和添加筛选加载，能在我的代码基础上示范么，谢谢老师。

 

结合你的代码，做一个例子发上来，说明你要做到什么效果。

我的表里面有（状态，病人姓名，开始时间，结束时间，日期*****  几个字段），想要在listview 按开始时间分类，加载当天的预约病人，编写了下面的代码；

 foxtable数据表发上来测试。

上传了

上传

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:预约测试.zip

参考代码

 

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw() '停止绘制
lvw.Groups.Clear() '清除原来的分组
lvw.Columns.Clear() '清除原来的列
lvw.Rows.Clear() '清除原来的行
lvw.Images.Clear() '清除原来的图片
Dim filter As String = "日期 = #" & Date.Today & "#"
lvw.View = ViewMode.Details '显示模式为详细信息
Dim cls() As String = {"状态","时间段","病人姓名","预约项目"} '定义列名
Dim wds() As Integer = {100,100,150,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 zh As String In DataTables("预约表").GetValues("开始时", filter) '增加分组
    Dim grp As WinForm.ListViewGroup = lvw.Groups.Add()
    grp.Name = zh
    Select Case zh
        Case 9
            grp.Text = "9:00-10:00"
        Case 10
            grp.Text = "10:00-11:00"
        Case 11
            grp.Text = "11:00-12:00"
        Case Else
            grp.Text = zh
    End Select
Next

For Each dr As DataRow In DataTables("预约表").Select(filter)
    Dim r As  WinForm.ListViewRow =  lvw.Rows.Add() '增加一行
    r.Group = dr("开始时")
    For Each cl As String In cls '逐列取值
        r(cl) = dr(cl)
    Next
   
    r.CellUseRowStyle = False
    If dr("状态") = "已约" Then '用蓝底白字整行显示东正教国家
        r.Cells(0).BackColor = Color.Gray
        r.Cells(0).ForeColor = Color.White
       
    Else If dr("状态") = "取消" Then
        r.Cells(0).BackColor = Color.Brown
        r.Cells(0).ForeColor = Color.White
    Else If dr("状态") = "到达" Then
        r.Cells(0).BackColor = Color.DarkViolet
        r.Cells(0).ForeColor = Color.White
    Else If dr("状态") = "过期" Then
        r.Cells(0).BackColor = Color.Gray
        r.Cells(0).ForeColor = Color.White
    Else
       
    End If
Next
lvw.ResumeRedraw() '恢复绘制

谢谢版主，测试代码没有问题了，这个您写的代码为什么在  帮助里没有（listview  ）  是借鉴vb.net么？