主题：请教一个关于显示员工照片的问题

 

 

 

 

 

有一张表格，分别有“部门”、“科室”、“员工”、“照片”等列，自己设计一个窗口，上面显示员工照片，下边当选择“部门”时，其下边的“科室”里自动出现该“部门”里的所有“科室”，然后点击“显示照片”时，在上面按顺序显示该“科室”所有员工的照片和名字？请问高手们这个怎么实现，给点提示哈。

此主题相关图片如下：chuangkou.jpg

不知道我做的全不全，对不对，多谢指教。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试文件.table

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试文件.part1.rar

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试文件.part2.rar

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试文件.part3.rar

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试文件.part4.rar

好不容易啊

员工的姓名怎么显示呢，麻烦扔一个代码，麻烦您老人家了

For i As Integer = 1 To 3
    Dim p As WinForm.PictureBox = e.form.Controls("PictureBox" & i)
    p.image = Nothing
    Dim lbl As WinForm.label = e.form.Controls("label" & i)
    lbl.text = Nothing
Next
Dim bm As String = e.Form.Controls("ComboBox1").Value
Dim ks As String = e.Form.Controls("ComboBox2").Value
Dim drs As List(of DataRow) = DataTables("表A").Select("部门 = '" & bm & "' And 科室 = '" & ks & "'")
Dim cnt As Integer = math.Min(3,drs.count)
For i As Integer = 1 To cnt
    Dim p As WinForm.PictureBox = e.form.Controls("PictureBox" & i)
    p.Image = getImage(drs(i-1)("照片"))
    Dim lbl As WinForm.label = e.form.Controls("label" & i)
    lbl.text = GetComboListString(drs(i-1)("姓名"))
Next

 

照片和姓名一起显示是不是这个代码？

可是执行上述代码出现错误窗口啊，搞不懂
此主题相关图片如下：cuowu.jpg

哪里错了，麻烦指点一哈