主题：[求助]怎样保存多个相片到“相片”列

请教

 

如果在拍摄相片时，要同时保存多个相片到“相片”列，以后再进行筛选，代码应如何改？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:数据表摄像头拍照.rar

用文件监视器http://www.foxtable.com/help/topics/1963.htm

拍摄的时候多拍几个保存起来，以后等审核相关人员查看后把不合要求的删掉

 

拍摄相片是在学籍表里操作，每个学生只能一行

 

其他代码已在附件里，不用文件监视器

 

 

 

学籍表_BeforeDeleteDataRow

 

If FileSys.FileExists(ProjectPath & "Attachments\" & e.DataRow("相片")) Then

    If Messagebox.Show("该生相片已经存在!是否与该生记录一并删除","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then

        FileSys.DeleteFile(ProjectPath & "Attachments\" & e.DataRow("相片"),2,2)

    End If

End If

 

 

拍照_Button2_Click

 

Dim pic As WinForm.PictureBox = e.Form.Controls("PicView2")

Dim img As Image

e.Form.TimerEnabled = False

If pic.Image IsNot Nothing

    Dim buffer() As Byte = Functions.Execute("GetImageToBytes",pic.Image)

    Dim result As Integer = Functions.Execute("SaveBytesToFile",buffer,e.Form.Controls("FileName").Value)

    If result = 1

        Tables("学籍表").Current("相片") = Tables("学籍表").Current("学籍号") & ".JPG"

        Tables("学籍表").Current("已拍照") = True

        MessageBox.Show("照片保存为: " & e.Form.Controls("FileName").Value ,"保存成功")

        e.Form.Close()

    Else

        MessageBox.Show("保存失败","失败")

    End If

Else

    MessageBox.Show("请先拍照!","错误")

End If

e.Form.TimerEnabled = True

 

弄一个照片表, 作为子表,关联ID用学生编号作为关联.

    

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:摄像头拍照.table

谢谢  有点甜 老师