到窗口计时器，添加行即可，比如
Static n As Integer = 1
if n>=Tables("国家").rows.count then
e.Form.TimerEnabled=false
return
end if
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw() '暂停绘制
Dim cls() As String = {"国家", "人口", "面积", "语言", "宗教", "洲"} '指定要显示的各列
Dim dr As Row = Tables("国家").rows(n)
n = n + 1
Dim Key As String = dr("图标")
Dim r As WinForm.ListViewRow = lvw.Rows.Add() '增加一行
lvw.Images.AddImage(Key, Key & ".ico", Key & "48.ico") '添加代表这个国家的一对图标
r.ImageKey = Key '指定图标键值
For Each cl As String In cls '逐列取值
Select Case cl
Case "人口", "面积" '如果是人口列或面积列
r(cl) = format(dr(cl), "#,000") '则显示千位分割符号
Case Else
r(cl) = dr(cl)
End Select
Next
lvw.ResumeRedraw() '恢复绘制
加好友 
发短信
Post By：2022/7/15 10:34:00 [只看该作者]
