- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]窗口显示操作人员照片 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119586)
-- 发布时间：2018/5/28 10:12:00
-- [求助]窗口显示操作人员照片
老师好！
我想在窗口PictureViewer控件按登陆用户名显示登陆者的照片，怎么实现呢？
-- 发布时间：2018/5/28 10:26:00
--
建议使用picturebox控件，操作人员照片存放在哪里？
http://www.foxtable.com/webhelp/scr/0812.htm
查找到对应行，合成路径，指定picturebox的image属性即可。
-- 发布时间：2018/5/28 11:36:00
--
怎么合成路径？已经建立了操作员信息表:有登陆用户名列，照片列。
-- 发布时间：2018/5/28 11:41:00
--
以下是引用weianfu在2018/5/28 11:36:00的发言：
怎么合成路径？已经建立了操作员信息表:有登陆用户名列，照片列。
怎么合成路径？已经建立了操作员信息表:有登陆用户名列，照片列。
比如
Dim fdr As DataRow = DataTables("表A").find("用户名 = \'" & user.Name & "\'")
If fdr IsNot Nothing Then
e.form.controls("picturebox").image = getImage(projectPath & "attachments/" & fdr("图片"))
End If
-- 发布时间：2018/5/28 11:43:00
--
已知窗口中Picturebox控件，控件属性绑定到人员照片信息表.照片文件名（表中有用户名等字段）。如何根据登陆用户名在窗口Picturebox控件显示与登陆用户名相关的照片（有多个窗口共用人员照片信息表）。
-- 发布时间：2018/5/28 11:46:00
--
1、不需要绑定表列，直接用4楼代码处理即可；
2、如果确实要绑定，修改代码
Dim i = Tables("表A").findRow("用户名 = \'" & user.Name & "\'")
If i >= 0 Then
Tables("表A").Position = i
End If
-- 发布时间：2018/5/28 14:10:00
--
Dim fdr As DataRow = DataTables("KM人员照片信息表").Find("用户名 = \'" & User.Name & "\'")
If fdr IsNot Nothing Then
e.form.controls("picturebox2").image = getImage(projectPath & "Images/" & fdr("照片文件名"))
End If
-- 发布时间：2018/5/28 14:13:00
--
请正确上传图片
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78
-- 发布时间：2018/5/28 14:21:00
--
此主题相关图片如下：表a.bmp
|
这是我在事件编辑的代码，附件是 表A 。
If fdr IsNot Nothing Then
e.form.controls("picturebox2").image = getImage(projectPath & "Images/" & fdr("人员照片"))
End If |
这代码实现不了，哪里出问题了呢？
[此贴子已经被作者于2018/5/28 15:36:35编辑过]
-- 发布时间：2018/5/28 15:44:00
--
不要绑定表列，窗口AfterLoad事件写代码
Dim fdr As DataRow = DataTables("KM人员照片信息表").Find("用户名 = \'" & User.Name & "\'")
msgbox(user.name)
If fdr IsNot Nothing Then
msgbox("找到了")
e.form.controls("picturebox2").image = getImage(projectPath & "Images/" & fdr("照片文件名"))
End If