图片自动更新 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有6611人关注过本帖树形打印复制链接主题：图片自动更新

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110253 积分：561095 威望：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

加好友

发短信

等级：超级版主帖子：110253 积分：561095 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/14 8:38:00 [显示全部帖子]

参考：http://www.foxtable.com/webhelp/topics/1523.htm

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110253 积分：561095 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/17 23:13:00 [显示全部帖子]

请上传实例说明

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110253 积分：561095 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/18 17:36:00 [显示全部帖子]

开发者密码？

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110253 积分：561095 威望：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

加好友

发短信

等级：超级版主帖子：110253 积分：561095 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/18 21:06:00 [显示全部帖子]

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

有点蓝

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110253 积分：561095 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/19 11:31:00 [显示全部帖子]

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

有点蓝

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110253 积分：561095 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/19 16:36:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试2.zip

有点蓝

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110253 积分：561095 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/20 9:52:00 [显示全部帖子]

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

有点蓝

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110253 积分：561095 威望：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 下一页

主题：图片自动更新