Foxtable(狐表) → 用户栏目 → 专家坐堂 → 图片自动更新


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

主题：图片自动更新
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106178 积分：540007 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/11 17:39:00 [显示全部帖子]

使用图片扩展列管理图片即可：http://www.foxtable.com/webhelp/topics/0086.htm

如果使用窗口控件，也可以使用图片控件：http://www.foxtable.com/webhelp/topics/0812.htm，直接绑定图片列，或者根据某个字段如“检查项目”获取本机图片设置到图片控件即可：http://www.foxtable.com/webhelp/topics/2728.htm
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106178 积分：540007 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/14 8:38:00 [显示全部帖子]


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


加好友 发短信
等级：超级版主 帖子：106178 积分：540007 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/17 23:13:00 [显示全部帖子]

请上传实例说明

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


加好友 发短信
等级：超级版主 帖子：106178 积分：540007 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/18 17:36:00 [显示全部帖子]

开发者密码？

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


加好友 发短信
等级：超级版主 帖子：106178 积分：540007 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/18 20:44:00 [显示全部帖子]

1、检查人员按钮enter事件
Dim cmb_2 As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("班组").Value
cmb_2.ComboList = DataTables("特种作业取证表").GetComboListString("姓名", "班组 = '" & str & "' and 岗位='" & e.Form.Controls("单元").value & "'")

2、图片到表事件处理

叉车台帐datacolchanged事件
Select Case e.DataCol.Name
    Case "注册车号"
        If e.DataRow.IsNull("注册车号") Then
            e.DataRow("实物图片") = Nothing
        Else
            Select Case e.NewValue
                Case "陕H00019"
                    e.DataRow("实物图片") ="林德_陕H00019.jpg"
                Case "陕H00022"
                    e.DataRow("实物图片") ="海斯特_陕H00022.jpg"
                Case "陕H00023"
                    e.DataRow("实物图片") ="海斯特_陕H00023.jpg"
                Case "陕H00024"
                    e.DataRow("实物图片") ="林德_陕H00024.jpg"
            End Select
        End If
        
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106178 积分：540007 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/18 21:06:00 [显示全部帖子]

没看懂上面的问题。我测试新增会添加一行，然后选择的内容都在新行里面的

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


加好友 发短信
等级：超级版主 帖子：106178 积分：540007 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/19 11:31:00 [显示全部帖子]

做个改后的例子重新发上来看看

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


加好友 发短信
等级：超级版主 帖子：106178 积分：540007 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/19 16:36:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:测试2.zip
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106178 积分：540007 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/20 9:52:00 [显示全部帖子]

PictureBox绑定的是“叉车台帐”的图片列，那么“叉车台帐”选中哪一行的记录，PictureBox就可以显示对于的这一行的图片列的图片。

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


加好友 发短信
等级：超级版主 帖子：106178 积分：540007 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/21 14:25:00 [显示全部帖子]

把图片复制到Attachments目录，然后在表事件里根据工号，姓名合并成文件名即可，类似：http://www.foxtable.com/webhelp/topics/1452.htm

Select Case e.DataCol.Name
    Case "工号","姓名"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("工号") OrElse dr.IsNull("姓名") Then
            dr("图片列") = Nothing
        Else
            dr("图片列") = dr("工号") & "_" & dr("姓名")  & ".jpg"
        End If
End Select
 回到顶部
总数 20 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 6 次数据查询