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

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