afterload代码 和 显示按钮的代码

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim pg As Integer = e.Form.Controls("Label1").Text
lvw.CheckBoxes = True
systemready = False
Dim idx1 As Integer = (pg - 1) * 5 \'获取要显示的第一行
Dim idx2 As Integer = pg * 5 - 1  \'获取要显示的最末行
idx2 = Math.Min(DataTables(Vars("表A")).dataRows.Count -1,idx2) \'idx2不能超过表的最大行数

lvw.StopRedraw() \'暂停绘制
lvw.Rows.Clear() \'清除原来的行
lvw.Images.Clear() \'清除原来的图片
lvw.View = ViewMode.LargeIcon \'显示模式为大图标
lvw.Images.LargeSize = New Size(150,100) \'定义大图标尺寸
For idx As Integer = idx1 To idx2
    Dim dr As Row = Tables(Vars("表A")).Rows(idx)
    Dim Key As String = dr("图片") \'获取此员工的照片文件
    lvw.Images.AddLargeImage(Key,Vars("IP") & Key) \'添加照片,直接用文件名作为图片键值
    Dim vr As  WinForm.ListViewRow =  lvw.Rows.Add() \'增加一行
    vr.Text = dr("第一列") & dr("图片")   \'设置标题
    vr.ImageKey = Key \'设置图片键值
    vr.Tag = dr
Next
lvw.ResumeRedraw() \'恢复绘制
systemready = True