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

Dim lvw1 As WinForm.ListView = e.Form.Controls("ListView1") '员工列表
Dim lvw2 As WinForm.ListView = e.Form.Controls("ListView2") '活动一参与者列表
Dim lvw3 As WinForm.ListView = e.Form.Controls("ListView3") '活动二参与者列表
Dim lvw4 As WinForm.ListView = e.Form.Controls("ListView1") '员工列表
Dim lvw5 As WinForm.ListView = e.Form.Controls("ListView2") '活动一参与者列表
Dim lvw6 As WinForm.ListView = e.Form.Controls("ListView3") '活动二参与者列表
Dim lvws() As Winform.ListView = {lvw1,lvw2,lvw3,lvw4,lvw5,lvw6} '看看我们是怎样批量设置某组控件属性的
For Each lvw As WinForm.ListView In lvws
    lvw.View = ViewMode.Tile '显示模式为平铺
    lvw.Images.LargeSize = New Size(65,75) '定义大图标尺寸
    lvw.TitleSize = New Size(150,90)  '设置平铺区域的大小
    lvw.AllowDrag = True
    lvw.AllowDrop = True
Dim cls() As String = {"编号","描述","来源"} '定义列名
For i As Integer = 0 To  cls.Length - 1  '增加列
    Dim c As WinForm.ListViewColumn = lvw.Columns.Add()
    c.Name = cls(i) '指定列名

照着例子抄，下面的不知道怎么写，

6个表筛选不同的行···一个一个的会写，就是不知道怎么能够简洁一点

此主题相关图片如下：任务计划.jpg

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

点击浏览该文件:listview精简.zip

例子已上传，麻烦老师有空帮我弄弄看，小学生。。。。 现在这个加载后执行太慢了

甜甜老师太牛了,信手拈来啊,啥时候我能这么牛逼就好了