主题：TabControl的用法请教

老师 AfterLoad  里面可以写两个 listview的 加载代码吗？

我写的下面这个有报错：列“任务编号”不属于表 评价程序表。

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")

lvw.Columns.Clear() '清除原来的列

lvw.Rows.Clear() '清除原来的行

lvw.Images.Clear() '清除原来的图片

lvw.GridLines = True '显示网格线

lvw.MultiSelect = False '禁止按Ctrl多选

'lvw.CheckBoxes = True '显示复选框

lvw.View = ViewMode.Details '显示模式为详细信息

Dim cls() As String = {"任务编号","任务名称","评价年度","评价单位"} '指定要显示的各列

Dim wds() As Integer = {"100","100","100","200"} '定义列宽

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("内部控制评价任务清单").DataRows '从数据表中提取数据

    Dim r As  WinForm.ListViewRow =  lvw.Rows.Add() '增加一行

    For Each cl As String In cls '逐列取值

        r(cl) = dr(cl)

    Next

Next

lvw.ResumeRedraw() '恢复绘制

Dim lvw2 As WinForm.ListView = e.Form.Controls("ListView2")

lvw2.Columns.Clear() '清除原来的列

lvw2.Rows.Clear() '清除原来的行

lvw2.Images.Clear() '清除原来的图片

lvw2.GridLines = True '显示网格线

lvw2.MultiSelect = False '禁止按Ctrl多选

'lvw.CheckBoxes = True '显示复选框

lvw2.View = ViewMode.Details '显示模式为详细信息

Dim cls2() As String = {"评价任务编号","模块涉及的流程","主责部门","测试人"} '指定要显示的各列

Dim wds2() As Integer = {"100","100","100","200"} '定义列宽

For i2 As Integer = 0 To  cls2.Length - 1

    Dim c2 As WinForm.ListViewColumn = lvw2.Columns.Add()

    c2.Name = cls2(i2) '指定列名

    c2.Text = cls2(i2)'指定列标题

    c2.Width = wds2(i2) '指定列宽

Next

For Each dr2 As DataRow In DataTables("评价程序表").DataRows '从数据表中提取数据

    Dim r2 As  WinForm.ListViewRow =  lvw2.Rows.Add() '增加一行

    For Each cl2 As String In cls '逐列取值

        r2(cl2) = dr2(cl2)

    Next

Next

lvw.ResumeRedraw() '恢复绘制