Dim r As Row = Tables("身份证校验").AddNew
Dim c As new camera
c.capture() '开始照相
If c.image IsNot Nothing Then '照相成功
Dim sf As String = r("证件号码") & ".bmp"
c.Save(ProjectPath & "\Attachments\" & sf) '照片复制到Attachments目录
r("一代证件拍摄照片") = sf
If
r("一代证件拍摄照片") IsNot Nothing Then
If c.image IsNot Nothing Then '照相成功
Dim sf1 As String = r("证件号码") & Format(Date.now, "yyyyMMddhhmmss") & "摄像" & ".bmp"
c.Save(ProjectPath & "\Attachments\" & sf1) '照片复制到Attachments目录
r("一代现场拍摄照片") = sf1
End If
End If
end if
上面代码一运行就两个字段的照片为一样啦
此主题相关图片如下：123456.jpg
理想效果如下：
先完成一代证件拍摄照片 然后完成一代现场拍摄照片 判断：当这两个字段为空时候 先进行一代证件拍摄照片拍摄，然后当一代证件拍摄照片不为空的时候 运行一代现场拍摄照片
加好友 
发短信
Post By：2014/6/5 17:35:00 [只看该作者]
