主题：[求助]ListView拖动行为下的选择性删除问题

For Each dr As DataRow In DataTables("员工").Select("姓名 in ('" & DataTables("活动").DataRows(0)("参与者").replace(",","','") & "')","性别") '列出所有员工

    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