Dim ftp As new FTPClient
ftp.Host="192.168.1.8"
ftp.Port = 21
ftp.Account = "cgftp"
ftp.Password = "Xj671766"
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw() '暂停绘制
lvw.View = ViewMode.SmallIcon '显示模式为小图标
lvw.CheckBoxes = True
For Each dr As DataRow In DataTables("项目资料").DataRows '从数据表中提取数据
Dim r As WinForm.ListViewRow = lvw.Rows.Add() '增加一行
Dim Key As String = "工程管理" & "/" & Tables("项目资料").Current("年份") & "/" & Tables("项目资料").Current("档案编号") '显示名称
lvw.Images.AddLargeImage(Key, Key) '添加照片,直接用文件名作为图片键值
r.ImageKey = Key '指定图标键值
r.Text = dr("档案编号") '指定行的标题
r.Name = r.Text '将行的名称设置为标题,也就是国家
Next
lvw.ResumeRedraw() '恢复绘制