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
现在只显示姓名和图标,如果还想再显示出员工编号的话,怎么写呢?