- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 单击这两列的单元格按钮，分别调取当前行的存储照片？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=136662)
-- 发布时间：2019/6/18 16:38:00
-- 单击这两列的单元格按钮，分别调取当前行的存储照片？
双击“照片1”列的单元格，拍照后的照片，存放在“attachments\\照片1区”；
双击“照片2”列的单元格，拍照后的照片，存放在“照片2区”；
且，单击这两列的单元格按钮，分别调取当前行的存储照片？
双击当前行的“照片”列单元格，拍照并保存到局域网地址\\...\\...，
单元格内显示，已拍照片的名字，命名规则为 e.Row("客户") & "." & Format(e.Row("入库日期"), "yyyyMMdd") & "." & e.Row.DataRow.Lines("照片2").count+1 & ".jpg
单击当前行的“照片”列单元格按钮，查看当前行存放的全部照片，但不允许查看或打开“照片的存放路径”，只允许查看“当前行存放的全部照片”？
[此贴子已经被作者于2019/6/18 16:45:35编辑过]
-- 发布时间：2019/6/18 16:52:00
--
设置其存放目录即可，参考
http://www.foxtable.com/webhelp/topics/2043.htm
-- 发布时间：2019/6/18 16:57:00
-- 回复：（有点甜）设置其存放目录即可，参考 ...
但是，只允许查看“当前行存放的全部照片”呢？
-- 发布时间：2019/6/18 17:21:00
--
本身就是只能看到当前行的数据的。
请具体说明一下，如何操作，要达到什么效果，加上截图说明一下。
-- 发布时间：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
End If
请问：上面红色字体的内容，局域网存放路径，正确写法，应该怎么改？
[此贴子已经被作者于2019/6/18 17:32:46编辑过]
-- 发布时间：2019/6/18 17:37:00
-- 若想要保存照片，只改列属性的保存路径的话，应该怎么做？
扩展列类型为图片的存放路径设为“D:\\暂存区\\zp001\\管理项目1\\zp1”，然后，还得改表属性的双击事件中的ProjectPath 存放路径？
若想要保存照片，只改列属性的保存路径的话，表属性的双击事件应该怎么改？
[此贴子已经被作者于2019/6/18 17:38:46编辑过]
-- 发布时间：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"
-- 发布时间：2019/6/18 20:18:00
-- 回复：（有点甜）直接引用设置的路径即可，如 ...
每次点击拍照，都会重新操作一次？
此主题相关图片如下：00001.png
-- 发布时间：2019/6/18 20:35:00
--
我测试没有问题。应该是您系统的摄像头驱动或者设置问题
-- 发布时间：2019/6/19 0:51:00
-- 回复：（有点蓝）我测试没有问题。应该是您系统的摄像...
我再次测试了一下，确实还是有问题：
操作步骤：
1、双击“照片1”列单元格，拍照成功一次后，
2、接着，双击“客户”列单元格，再双击“入库日期”列，
3、最后，再双击“照片1”列单元格，会发现问题出现了，又得重新操作8楼2个图的问题？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |