Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim pg As Integer = e.Form.Controls("Label1").Text
Dim idx1 As Integer = (pg - 1) * 5 '获取要显示的第一行
Dim idx2 As Integer = pg * 5 - 1  '获取要显示的最末行
idx2 = Math.Min(DataTables("国家").dataRows.Count -1,idx2) 'idx2不能超过表的最大行数
lvw.Images.Clear() '清除之前的图片
lvw.Rows.Clear() '清除之前的行
For idx As Integer = idx1 To idx2
    Dim dr As DataRow = DataTables("国家").DataRows(idx) '根据行位置从数据表中取得对应的DataRow
    Dim vr As WinForm.ListViewRow = lvw.Rows.Add() '在ListView增加一行
    Dim Key As String = dr("图标")
    lvw.Images.AddImage(Key, Key & ".ico", Key & "48.ico") '添加代表这个国家的图标
    vr.Imagekey = key '指定图标键值
    For Each cl As WinForm.ListViewColumn In lvw.Columns '逐列取值
        Select Case cl.Name
            Case "人口","面积" '如果是人口列或面积列
                vr(cl.Name) = Format(dr(cl.Name),"#,000") '则显示千位分割符号
            Case Else
                vr(cl.Name) = dr(cl.Name)
        End Select
    Next
Next

Dim lbl As WinForm.Label = e.Form.Controls("Label1")
Dim btn As WinForm.Button = e.Form.Controls("btnShow")
Dim pg As Integer = lbl.Text '当前页号
If pg <> 1 Then
    lbl.Text =  1
End If
btn.PerformClick()  '模拟单击显示按钮

Dim lbl As WinForm.Label = e.Form.Controls("Label1")
Dim btn As WinForm.Button = e.Form.Controls("btnShow")
Dim pg As Integer = lbl.Text '当前页号
If pg > 1 Then
    lbl.Text =  pg - 1
End If
btn.PerformClick()  '模拟单击显示按钮

Dim lbl As WinForm.Label = e.Form.Controls("Label1")
Dim btn As WinForm.Button = e.Form.Controls("btnShow")
Dim pg As Integer = lbl.Text '当前页号
Dim pgs As Integer = math.Ceiling(DataTables("国家").DataRows.Count / 5) '计算出总页数
If pg < pgs  Then
    lbl.Text = pg + 1
End If
btn.PerformClick()  '模拟单击显示按钮

Dim lbl As WinForm.Label = e.Form.Controls("Label1")
Dim btn As WinForm.Button = e.Form.Controls("btnShow")
Dim pg As Integer = lbl.Text '当前页号
Dim pgs As Integer = math.Ceiling(DataTables("国家").DataRows.Count / 5) '计算出总页数
If pg < pgs  Then
    lbl.Text = pgs
End If
btn.PerformClick()  '模拟单击显示按钮