Dim lvw1 As WinForm.ListView = e.Form.Controls("ListView1") \'员工列表
Dim lvw2 As WinForm.ListView = e.Form.Controls("ListView2") \'活动一参与者列表
Dim lvws() As Winform.ListView = {lvw1,lvw2} \'看看我们是怎样批量设置某组控件属性的
For Each lvw As WinForm.ListView In lvws
    lvw.View = ViewMode.List
    lvw.AllowDrag = True
    lvw.AllowDrop = True
    lvw.Images.AddSmallImage("nanren", "nanren.ico") \'添加代表男性的一对图标
    lvw.Images.AddSmallImage("nvren", "nvren.ico") \'添加代表女性的一对图标
Next
For Each dr As DataRow In DataTables("员工表").Select("","性别") \'列出所有员工
    Dim vr As WinForm.ListViewRow = lvw1.Rows.Add()
    vr.Text = dr("姓名")
    vr.Name = dr("姓名") \'将ListViewRow的Name属性设置为员工姓名
    If dr("性别") = "男" Then
        vr.ImageKey = "nanren"
    Else
        vr.ImageKey = "nvren"
    End If
Next

现在只显示姓名和图标，如果还想再显示出员工编号的话，怎么写呢？

http://www.foxtable.com/help/topics/2776.htm