拍照命名当前行的“客户”列+“日期”列+当前行的第“00n”张照片？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 拍照命名当前行的“客户”列+“日期”列+当前行的第“00n”张照片？

共有2553人关注过本帖树形打印复制链接主题：拍照命名当前行的“客户”列+“日期”列+当前行的第“00n”张照片？

fengwenliuyan

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

加好友

发短信

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

拍照命名当前行的“客户”列+“日期”列+当前行的第“00n”张照片？ 发帖心情

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

CellButtonClick：

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

这样写的命名，却是只能覆盖上一次的照片路径，求按命名规则来存放照片：

拍照命名规则：

当前行的：

“客户”列+“日期”列+当前行的第“00n”张照片？

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

[此贴子已经被作者于2019/6/13 17:30:09编辑过]

有点甜

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

加好友

发短信

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

Post By：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

fengwenliuyan

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

加好友

发短信

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

回复：（有点甜）Dim c As new cameraIf e.Col.Name =... 发帖心情

Post By：2019/6/14 0:28:00 [只看该作者]

我将代码放入到了表中“拍照”列的双击事件中，也就是双击该单元格，则拍照；单击该单元格内按钮，则调取图片。

遇到的问题如下：

1、每次双击该单元格拍照，都会出现以下操作界面，不能一步到位？（有时候又可以直接点确认？）

此主题相关图片如下：11.png

此主题相关图片如下：22.png

2、如拍照后的该照片的名称为d:\暂存区\111_20190613_3.jpg，要是想要得到的是111_20190613_3.jpg，应该怎么改？

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

[此贴子已经被作者于2019/6/14 0:28:38编辑过]

fengwenliuyan

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

加好友

发短信

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

回复：（fengwenliuyan）回复：（有点甜）Dim c As ne... 发帖心情

Post By：2019/6/14 8:23:00 [只看该作者]

求帮助？

有点甜

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

加好友

发短信

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

Post By：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

下一主题 >> << 上一主题

主题：拍照命名当前行的“客户”列+“日期”列+当前行的第“00n”张照片？