Foxtable(狐表)用户栏目专家坐堂 → ListView添加窗口


  共有2779人关注过本帖树形打印复制链接

主题:ListView添加窗口

帅哥哟,离线,有人找我吗?
nuoyan88
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2159 积分:14971 威望:0 精华:0 注册:2017/10/12 13:00:00
  发帖心情 Post By:2020/2/16 22:04:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/16 22:51:00 [只看该作者]

完整代码?

 回到顶部
帅哥哟,离线,有人找我吗?
nuoyan88
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2159 积分:14971 威望:0 精华:0 注册:2017/10/12 13:00:00
  发帖心情 Post By:2020/2/16 23:00:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/16 23:09:00 [只看该作者]

后面3行改为

Dim vg1 As WinForm.ListViewGroup = lvw.Groups(
"工时业务处理"
vg1.Text = "管理工时批准(" &  DataTables("管理层杂工总表").SQLCompute("Count(审核状态)","需审核人 = '"  & _UserName & "' and 审核状态 = '待审核'") & ")"
[此贴子已经被作者于2020/2/16 23:09:06编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
nuoyan88
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2159 积分:14971 威望:0 精华:0 注册:2017/10/12 13:00:00
  发帖心情 Post By:2020/2/16 23:22:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/17 9:08:00 [只看该作者]

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.Groups.Clear() '清除原来的分组
lvw.Rows.Clear() '清除原来的行
lvw.Images.Clear() '清除原来的图片
lvw.View = ViewMode.SmallIcon '用小图标模式
Dim gps() As  String  = {"采购申请业务","设备管理业务","生产过程异常","工时业务处理","刀具业务过程"} '定义分组名称
Dim nms() As String = {"采购申请审核","采购申请驳回","过程不良审核","生产异常方案","影响明细填写","生产异常驳回","异常结案确认","管理工时批准","工时补助审核","工时补助驳回","刀具修磨审核","刀盘调试审核","刀具报废审核","再利用库审核","刀具过程驳回"} '定义标题
For Each gp As String In gps
    Dim vg As WinForm.ListViewGroup = lvw.Groups.Add() '增加分组
    vg.Name = gp '指定分组名称
    vg.Text = gp '指定分组标题
Next
For i As Integer = 0 To nms.Length - 1
    Dim r As  WinForm.ListViewRow =  lvw.Rows.Add() '增加一行
    r.Text = nms(i) '指定标题
    Select Case nms(i)  '指定各个国家所属的分组
        Case "采购申请审核","采购申请驳回"
            r.Group = "采购申请业务"
        Case "过程不良审核"
            r.Group = "设备管理业务"
        Case "生产异常方案","影响明细填写","生产异常驳回","异常结案确认"
            r.Group = "生产过程异常"
        Case "管理工时批准"
            r.Group = "工时业务处理"
r.Text = "管理工时批准(" &  DataTables("管理层杂工总表").SQLCompute("Count(审核状态)","需审核人 = '"  & _UserName & "' and 审核状态 = '待审核'") & ")"
        Case "工时补助审核","工时补助驳回"
            r.Group = "工时业务处理"
        Case "刀具修磨审核","刀盘调试审核","刀具报废审核","再利用库审核","刀具过程驳回"
            r.Group = "刀具业务过程"
    End Select
Next

 回到顶部
帅哥哟,离线,有人找我吗?
nuoyan88
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2159 积分:14971 威望:0 精华:0 注册:2017/10/12 13:00:00
  发帖心情 Post By:2020/2/17 15:05:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/17 15:45:00 [只看该作者]

上传实例,包括图片

 回到顶部
帅哥哟,离线,有人找我吗?
nuoyan88
  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2159 积分:14971 威望:0 精华:0 注册:2017/10/12 13:00:00
  发帖心情 Post By:2020/2/17 22:23:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥哟,离线,有人找我吗?
nuoyan88
  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2159 积分:14971 威望:0 精华:0 注册:2017/10/12 13:00:00
  发帖心情 Post By:2020/2/18 22:56:00 [只看该作者]

用户已被锁定

 回到顶部
总数 24 上一页 1 2 3 下一页