主题：列表页头像问题

官方的 ListView.Table   示例二十二  “精确控制行的拖动行为”

比如

 

For Each dr As DataRow In DataTables("员工").Select("","性别") '列出所有员工
    Dim vr As WinForm.ListViewRow = lvw1.Rows.Add()
    vr.Text = dr("姓名")
    vr.Name = dr("姓名") '将ListViewRow的Name属性设置为员工姓名   
    lvw.Images.AddSmallImage(vr.Name, ProjectPath & "attachments/" & dr("图片")) '添加代表男性的一对图标       
    vr.ImageKey = vr.name
    vr.ImageKey = "Woman"   
Next

 

参考 http://www.foxtable.com/webhelp/topics/2775.htm

 

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

 

你帮我看看   甜大大  麻烦  谢谢了 

Dim bm As String = e.Form.Controls("ComboBox1").Value
Dim rw As String = e.Form.Controls("ComboBox2").Value

Dim lvw1 As WinForm.ListView = e.Form.Controls("ListView1") '部门组员列表
Dim lvw2 As WinForm.ListView = e.Form.Controls("ListView2") '星期日参与者列表
Dim lvw3 As WinForm.ListView = e.Form.Controls("ListView3") '星期一参与者列表
Dim lvw4 As WinForm.ListView = e.Form.Controls("ListView4") '星期二参与者列表

Dim lvws() As Winform.ListView = {lvw1,lvw2,lvw3,lvw4} '看看我们是怎样批量设置某组控件属性的
For Each lvw As WinForm.ListView In lvws
    lvw.Rows.Clear() '清除原来的行
    lvw.Images.Clear() '清除原来的图片
    lvw.View = ViewMode.LargeIcon
    lvw.AllowDrag = True
    lvw.AllowDrop = True
    For Each r As DataRow In DataTables("员工表").Select("员工工号 is not null")
        lvw.Images.AddLargeImage(r("员工工号"), ProjectPath & "Images/" & r("员工头像")) '添加代表这个员工的一对图标
    Next
Next

Dim dr As DataRow = DataTables("工作任务表").Find("部门 = '" & bm & "' And 任务名称 = '" & rw & "'")
If dr IsNot Nothing Then
   
    Dim wz As Integer = Tables("工作任务表").FindRow(dr)
    If wz >= 0 Then
        Tables("工作任务表").Position = wz
    End If
   
    Dim dr1 As DataRow = DataTables("部门").Find("部门 = '" & bm & "'")
    Dim zys() As String = dr1("部门人员").split(",")
   
    For Each zy As String In zys '列出所有组员
        If zy > "" Then
            Dim dr2 As DataRow = DataTables("员工表").Find("员工工号 = '" & zy & "'")
            Dim vr As WinForm.ListViewRow = lvw1.Rows.Add()
            vr.Text = dr2("员工姓名")
            vr.Name = zy '将ListViewRow的Name属性设置为员工工号
            vr.ImageKey = vr.Name '指定图标键值
        End If
    Next
   
    Dim nms() As String = Tables("工作任务表").Current("一组人员").Split(",") '列出任务一组成员
    For Each nm As String In nms
        If nm > "" Then
            Dim dr3 As DataRow = DataTables("员工表").Find("员工工号 = '" & nm & "'")
            Dim vr As WinForm.ListViewRow = lvw2.Rows.Add()
            vr.Text = dr3("员工姓名")
            vr.Name = nm
            vr.ImageKey = vr.Name '指定图标键值
        End If
    Next
   
    nms = Tables("工作任务表").Current("二组人员").Split(",") '列出任务二组成员
    For Each nm As String In nms
        If nm > "" Then
            Dim dr4 As DataRow = DataTables("员工表").Find("员工工号 = '" & nm & "'")
            Dim vr As WinForm.ListViewRow = lvw3.Rows.Add()
            vr.Text = dr4("员工姓名")
            vr.Name = nm
            vr.ImageKey = vr.Name '指定图标键值
        End If
    Next
   
    nms = Tables("工作任务表").Current("三组人员").Split(",") '列出任务二组成员
    For Each nm As String In nms
        If nm > "" Then
            Dim dr5 As DataRow = DataTables("员工表").Find("员工工号 = '" & nm & "'")
            Dim vr As WinForm.ListViewRow = lvw4.Rows.Add()
            vr.Text = dr5("员工姓名")
            vr.Name = nm
            vr.ImageKey = vr.Name '指定图标键值
        End If
    Next
   
Else
    Forms("新增部组").Open()
End If

谢谢甜大大