表职工一览表有如下几列: 姓名 科室 照片
由于记录较多,建一窗口,按部门显示职员照片
窗口中1. 建COMBOBOX (名称KK),用于选择科室
2. 建 LISTVIEW1
另建一按钮,代码如下:
Dim Filter As String
With e.Form.Controls(" KK")
If .Value IsNot Nothing Then
Filter = Filter & "科室 = '" & .Value & "'"
End If
End With
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw()
lvw.Rows.Clear()
lvw.Images.Clear()
lvw.View = ViewMode.Tile
lvw.Images.LargeSize = New Size(65,75)
lvw.TitleSize = New Size(150,90)
Dim cls() As String = {"姓名","部门"}
For i As Integer = 0 To cls.Length - 1
Dim c As WinForm.ListViewColumn = lvw.Columns.Add()
c.Name = cls(i)
Next
?????For Each dr As DataRow In DataTables("职工一览表").Select .........
Dim Key As String = dr("照片")
lvw.Images.AddLargeImage(Key, Key)
Dim vr As WinForm.ListViewRow = lvw.Rows.Add()
vr.ImageKey = Key
For Each cl As String In cls
vr(cl) = dr(cl)
Next
Next
lvw.ResumeRedraw()
I
请教:打问号的行如何写,才能按科室显示职工的照片。谢谢!