- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 拍照命名当前行的“客户”列+“日期”列+当前行的第“00n”张照片？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=136457)
-- 发布时间：2019/6/13 17:29:00
-- 拍照命名当前行的“客户”列+“日期”列+当前行的第“00n”张照片？
Dim c As new camera
If e.Col.Name = "拍照" Then
e.Cancel = True \'取消默认动作
c.capture() \'开始照相
If c.image IsNot Nothing Then \'照相成功
c.Save("D:\\暂存区\\001\\abc.jpg") \'保存文件
End If
End If
这样写的命名，却是只能覆盖上一次的照片路径，求按命名规则来存放照片：
拍照命名规则：
-- 发布时间：2019/6/13 17:44:00
--
Dim c As new camera
If e.Col.Name = "拍照" Then
e.Cancel = True \'取消默认动作
c.capture() \'开始照相
If c.image IsNot Nothing Then \'照相成功
Dim file As String = "d:\\暂存区\\" & e.Row("客户") & "_" & Format(e.Row("日期"), "yyyyMMdd") & "_" & e.Row.DataRow.Lines("拍照").count+1 & ".jpg"
c.Save(file) \'保存文件
Dim ls = e.Row.DataRow.Lines("拍照")
ls.add(file)
e.Row.DataRow.Lines("拍照") = ls
End If
End If
-- 发布时间：2019/6/14 0:28:00
-- 回复：（有点甜）Dim c As new cameraIf e.Col.Name =...
此主题相关图片如下：11.png
此主题相关图片如下：22.png
-- 发布时间：2019/6/14 8:23:00
-- 回复：（fengwenliuyan）回复：（有点甜）Dim c As ne...
求帮助？
-- 发布时间：2019/6/14 9:35:00
--
1、换一种方式拍照
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=93741
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=41778&skin=0
2、修改路径，参考
Dim c As new camera
If e.Col.Name = "拍照" Then
e.Cancel = True \'取消默认动作
c.capture() \'开始照相
If c.image IsNot Nothing Then \'照相成功
Dim file As String = ProjectPath & "attachments/" & e.Row("客户") & "_" & Format(e.Row("日期"), "yyyyMMdd") & "_" & e.Row.DataRow.Lines("拍照").count+1 & ".jpg"
c.Save(file) \'保存文件
Dim ls = e.Row.DataRow.Lines("拍照")
ls.add(FileSys.GetName(file))
e.Row.DataRow.Lines("拍照") = ls
End If
End If