以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  图片帅选问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92568)
--  作者：HJG_HB950207
--  发布时间：2016/11/7 14:24:00
--  图片帅选问题
表职工一览表有如下几列：      姓名    科室   照片


          由于记录较多，建一窗口，按部门显示职员照片

  窗口中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 
     请教：打问号的行如何写，才能按科室显示职工的照片。谢谢！
           
           
--  作者：有点蓝
--  发布时间：2016/11/7 15:04:00
--  
For Each dr As DataRow In DataTables("职工一览表").Select(Filter )