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

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

    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
            Dim nr As Row = .AddNew()
            If nr.DataRow.RowState = DataRowState.Added Then '如果是新增行,必须先保存才能插入文件
                nr.Save()
            End If
            nr.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(".")
            nr("姓名") = parts(0)
            nr("序号") = Format(Date.Now,"yyyyMMddhhmmss") & "-" & .Rows.Count
        Next
    End If
End With

[此贴子已经被作者于2017/2/2 9:33:18编辑过]

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