主题：[求助]动态插入图片代码错误

执行下面代码，能否拷贝文件到photo文件夹？

你图片列，是二进制列，还是字符列？

Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
dlg.InitialDirectory ="E:\图片库\" & CurrentTable.Current("产品编码")
If dlg.ShowDialog = DialogResult.OK Then
    Dim dr As DataRow = Tables("数据库").Current.DataRow
    Dim fs As String = ProjectPath & "attachment\photo\" & CurrentTable.Current("产品编码")
    Dim fn As String = dlg.FileName
    If FileSys.DirectoryExists(fs) Then
        For Each f As String In dlg.FileNames
            FileSys.CopyFile(f, fs & FileSys.GetName(f), True)
            'dr.SQLInsertFile("照片",fs)
        Next
    Else
        FileSys.CreateDirectory(fs)
        For Each f As String In dlg.FileNames
            FileSys.CopyFile(f, fs & FileSys.GetName(f), True)
            'dr.SQLInsertFile("照片",fs)
        Next
    End If
End If

这样试试

Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
Dim t As Table = Tables("数据库")
If t.current IsNot Nothing Then
    dlg.InitialDirectory ="E:\图片库\" & t.Current("产品编码")
    If dlg.ShowDialog = DialogResult.OK Then
        Dim dr As DataRow = t.Current.DataRow
        Dim fs As String = ProjectPath & "attachment\photo\" & t.Current("产品编码")
        Dim fn As String = dlg.FileName
        If FileSys.DirectoryExists(fs) Then
            For Each f As String In dlg.FileNames
                FileSys.CopyFile(f, fs & FileSys.GetName(f), True)
                'dr.SQLInsertFile("照片",fs)
            Next
        Else
            FileSys.CreateDirectory(fs)
            For Each f As String In dlg.FileNames
                FileSys.CopyFile(f, fs & FileSys.GetName(f), True)
                'dr.SQLInsertFile("照片",fs)
            Next
        End If
    End If
else
    msgbox("表格数据为空")
end if

dr.SQLInsertFile("照片",fs)

改成

dr.lines("照片") = dr.lines("照片").Add("photo\" & t.Current("产品编码") & "\" & FileSys.GetName(f))