以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]请教关于不同部门加盖印章的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=87870)
--  作者：我来看看
--  发布时间：2016/7/21 15:55:00
--  [求助]请教关于不同部门加盖印章的问题

我设计了印章表，里面有不同单位名称以及对应的不同印章图标。

在用户培训记录表中我想实现以下功能：培训单位管理人员登陆后填写各项内容（培训名称、日期、学时、成绩、考核单位盖章）

 

在考核单位盖章一格首先显示“盖章”按钮，点击后变成这个单位的印章。其他人不能进行修改和删除。

 

请问如何实现？？？？

[此贴子已经被作者于2016/7/21 16:26:19编辑过]
--  作者：大红袍
--  发布时间：2016/7/21 16:58:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/2514.htm

 
--  作者：我来看看
--  发布时间：2016/7/22 8:35:00
--  

老师，你这个方法我知道，可是我现在是需要不同的单位用户登陆后加盖相应单位的印章（读取的是印章表中的对应图标的）。
--  作者：Hyphen
--  发布时间：2016/7/22 8:52:00
--  
一样的，学会变通

Dim pbx As WinForm.PictureBox = e.Sender
Dim r As Row = Tables("订单").Current
If r IsNot Nothing Then
    If r("审核") = True Then
        Dim drFile As DataRow = DataTables("印章表").Find(CExp("单位=\'{0}\'",r("单位")))
        If drFile IsNot Nothing Then
            e.File = drFile("印章图片") \'显示已审核印章图片
        Else
            e.File = "" \'不显示图片
        End If
    Else
        e.File = "" \'不显示图片
    End If
Else
    e.File = "" \'不显示图片
End If