主题：[求助]listview批量设置

参考代码

Dim tj() As String = {"进程='1'","进程='2'","进程='3'","进程='4'","进程='5'","进程='6'"}

Dim idx As Integer = 0

Dim lvws() As Winform.ListView = {lvw1,lvw2,lvw3,lvw4,lvw5,lvw6} '看看我们是怎样批量设置某组控件属性的
For Each lvw As WinForm.ListView In lvws

    '......

    For Each dr As DataRow In DataTables("员工").Select(tj(idx))

    Next

    idx = idx + 1

Dim tj() As String = {"进程='准备'","进程='进行'","进程='中止'","进程='到期'","进程='完成'","进程='取消'"}

Dim idx As Integer = 0

Dim lvws() As String = {"1", "2", "3", "4", "5", "6"} '看看我们是怎样批量设置某组控件属性的
For Each s As String In lvws
    Dim lvw As WinForm.ListView = e.form.controls("ListView" & s)
    Tables("任务进度_Table" & s).filter = tj(idx)
    lvw.AllowDrag = True
    lvw.AllowDrop = True
    Lvw.StopRedraw() '暂停绘制
    Lvw.Rows.Clear() '清除原来的行
    Lvw.Images.Clear() '清除原来的图片
    Lvw.View = ViewMode.Tile '显示模式为平铺
    Lvw.Images.LargeSize = New Size(75,75) '定义大图标尺寸
    Lvw.TitleSize = New Size(200,100)  '设置平铺区域的大小
   
   
    '*****准备
    Dim cls1() As String = {"编号","描述","类别","来源","数量"} '定义列名
    For i1 As Integer = 0 To  cls1.Length - 1  '增加列
        Dim c1 As WinForm.ListViewColumn = lvw.Columns.Add()
        c1.Name = cls1(i1) '指定列名
    Next
   
    For Each dr1 As DataRow In DataTables("任务计划").Select(tj(idx))
        Dim Key1 As String = dr1("照片") '获取此员工的照片文件
        lvw.Images.AddLargeImage(Key1, Key1) '添加照片,直接用文件名作为图片键值
        Dim vr1 As  WinForm.ListViewRow =  lvw.Rows.Add() '增加一行
        vr1.ToolTipText = dr1("备注")  '设置此行的动态提示
        vr1.ImageKey = Key1 '设置图片键值
        For Each c1 As String In cls1 '逐列取值
            vr1.BackColor=  Color.Transparent
            vr1(c1) = dr1(c1)
            vr1.Tag= dr1 '将DataRow赋值给ListViewRow的Tag属性,将二者联系起来
           
        Next
    Next
idx += 1
    lvw.ResumeRedraw() '恢复绘制
Next