Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]请教关于不同部门加盖印章的问题


  共有2028人关注过本帖树形打印复制链接

主题：[求助]请教关于不同部门加盖印章的问题
帅哥哟，离线，有人找我吗？
我来看看
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：347 积分：3065 威望：0 精华：0 注册：2013/11/19 16:05:00 		[求助]请教关于不同部门加盖印章的问题  发帖心情 Post By：2016/7/21 15:55:00 [只看该作者]

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

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

 

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

 

请问如何实现？？？？

[此贴子已经被作者于2016/7/21 16:26:19编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/7/21 16:58:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
我来看看
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：347 积分：3065 威望：0 精华：0 注册：2013/11/19 16:05:00 		  发帖心情 Post By：2016/7/22 8:35:00 [只看该作者]

老师，你这个方法我知道，可是我现在是需要不同的单位用户登陆后加盖相应单位的印章（读取的是印章表中的对应图标的）。
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03320 秒, 4 次数据查询