请教老师~~~在学习运用ListView拖动行为的过程中，以CaseStudy目录下的文件“ListView.Table”，“示例二十二”的窗口为例，
~~~~~精确控制行的拖动行为
由于在实际运用中并不需要用listview显示员工列表，而是直接显示活动1，2，3等等，设计时我的思路是这样的：
1、先在活动1的LVW1中以员工列表的显示方式显示出所有人员：
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 = "Man"
Else
vr.ImageKey = "Woman"
End If
Next
2、然后将其他活动2，3等添加（LVW2,LVW3）
Dim
nms() As String = DataTables("活动").DataRows(1)("参与者").Split(",") '列出活动二参与者
For Each nm As String In nms
If nm > "" Then
Dim vr As WinForm.ListViewRow = lvw2.Rows.Add()
vr.Text = nm
vr.Name = nm
vr.ImageKey = lvw1.Rows(nm).ImageKey '从员工列表(ListView1)获取此员工的图标键值
End If
Next
3、最后让LVW1和下表中的活动1人员进行对比，删除与活动1不同的项目，然后写出了这种东西
此主题相关图片如下：无标题.png
Dim nms() As String = DataTables("活动").DataRows(0)("参与者").Split(",") '列出活动一人员
For Each nm As String In nms
If lvw1.Rows.Contains(nm) Then
Else
lvw1.Rows.Delete(nm)
End If
Next
请问老师这功能该怎么实现，显然我的代码是有问题的，菜鸟才学疏浅，如何才能让LVW1的全部员工里只留下活动1的人呢~~~
加好友 
发短信
Post By：2016/9/19 10:39:00 [只看该作者]
