单击这两列的单元格按钮，分别调取当前行的存储照片？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 单击这两列的单元格按钮，分别调取当前行的存储照片？

共有5508人关注过本帖树形打印复制链接主题：单击这两列的单元格按钮，分别调取当前行的存储照片？

fengwenliuyan

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

加好友

发短信

等级：四尾狐帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00

单击这两列的单元格按钮，分别调取当前行的存储照片？ 发帖心情

Post By：2019/6/18 16:38:00 [只看该作者]

双击“照片1”列的单元格，拍照后的照片，存放在“attachments\照片1区”；

双击“照片2”列的单元格，拍照后的照片，存放在“照片2区”；

且，单击这两列的单元格按钮，分别调取当前行的存储照片？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.zip

双击当前行的“照片”列单元格，拍照并保存到局域网地址\...\...，

单元格内显示，已拍照片的名字，命名规则为 e.Row("客户") & "." & Format(e.Row("入库日期"), "yyyyMMdd") & "." & e.Row.DataRow.Lines("照片2").count+1 & ".jpg

单击当前行的“照片”列单元格按钮，查看当前行存放的全部照片，但不允许查看或打开“照片的存放路径”，只允许查看“当前行存放的全部照片”？

[此贴子已经被作者于2019/6/18 16:45:35编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/6/18 16:52:00 [只看该作者]

设置其存放目录即可，参考

http://www.foxtable.com/webhelp/topics/2043.htm

fengwenliuyan

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

加好友

发短信

等级：四尾狐帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00

回复：（有点甜）设置其存放目录即可，参考 ... 发帖心情

Post By：2019/6/18 16:57:00 [只看该作者]

但是，只允许查看“当前行存放的全部照片”呢？

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/6/18 17:21:00 [只看该作者]

本身就是只能看到当前行的数据的。

请具体说明一下，如何操作，要达到什么效果，加上截图说明一下。

fengwenliuyan

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

加好友

发短信

等级：四尾狐帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00

局域网存放路径，正确写法，应该怎么改？ 发帖心情

Post By：2019/6/18 17:33:00 [只看该作者]

Dim c2 As new camera

If e.Col.Name = "照片2" Then

e.Cancel = True '取消默认动作

c2.capture() '开始照相

If c2.image IsNot Nothing Then '照相成功

Dim file2 As String = ProjectPath & "\\主机电脑\信息库\zp1/" & e.Row("客户") & "." & Format(e.Row("入库日期"), "yyyyMMdd") & "." & e.Row.DataRow.Lines("照片2").count+1 & ".jpg"

c2.Save(file2) '保存文件

Dim ls2 = e.Row.DataRow.Lines("照片2")

ls2.add(fileSys.GetName(file2))

e.Row.DataRow.Lines("照片2") = ls2

End If

请问：上面红色字体的内容，局域网存放路径，正确写法，应该怎么改？

[此贴子已经被作者于2019/6/18 17:32:46编辑过]

fengwenliuyan

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

加好友

发短信

等级：四尾狐帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00

若想要保存照片，只改列属性的保存路径的话，应该怎么做？ 发帖心情

Post By：2019/6/18 17:37:00 [只看该作者]

扩展列类型为图片的存放路径设为“D:\暂存区\zp001\管理项目1\zp1”，然后，还得改表属性的双击事件中的ProjectPath 存放路径？

若想要保存照片，只改列属性的保存路径的话，表属性的双击事件应该怎么改？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.zip

[此贴子已经被作者于2019/6/18 17:38:46编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/6/18 18:33:00 [只看该作者]

直接引用设置的路径即可，如

Dim file2 As String = ProjectPath & "\\主机电脑\信息库\zp1/" & e.Row("客户") & "." & Format(e.Row("入库日期"), "yyyyMMdd") & "." & e.Row.DataRow.Lines("照片2").count+1 & ".jpg"

改成

Dim file2 As String = e.col.datacol.DefaultFolder & "\" & e.Row("客户") & "." & Format(e.Row("入库日期"), "yyyyMMdd") & "." & e.Row.DataRow.Lines("照片2").count+1 & ".jpg"