二进制照片列存储过程中出现的问题，请指教 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

目前可以实现批量导入照片，并以二进制的形式存储到SQL，但是每次导入照片都有如下提示，请老师指教，如何解决这个问题，谢谢！附代码

If Tables("表A").Current Is Nothing Then

Return

End If

Dim dr As DataRow = Tables("表A").Current.DataRow

Dim dlg As New OpenFileDialog

dlg.MultiSelect = True

dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png;*.tif;*.dcm"

If dlg.ShowDialog = DialogResult.OK Then

For Each fl As String In dlg.FileNames

Tables("表A").AddNew()

Tables("表A").DataTable.Save()

CurrentTable.Current.DataRow.SQLInsertFile("文件",fl) '插入文件

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

pic.Image = GetImage(fl)

Dim s As String = FileSys.GetName(fl)

Dim parts() As String = s.split(".")

CurrentTable.Current("姓名") = parts(0)

CurrentTable.Current("序号") = Format(Date.Now,"yyyyMMddhhmmss") & "-" & CurrentTable.Rows.Count

End If

将CurrentTable改为Tables("XXX") 也是会出现如下提示，请给予帮助，谢谢！！

此主题相关图片如下：无标题.jpg

[此贴子已经被作者于2017/1/30 10:32:42编辑过]

主题：二进制照片列存储过程中出现的问题，请指教