主题：如何从excle中导入图片

 

执行6楼代码后，你foxtable照片列存放什么数据？在项目的Attachments文件夹下，有没有对应jpg文件？

 

 

还是不太明白，照片列怎么保存正确的图片名称。excle表中的图片没有名称啊，从excle表中复制出来的图片名称是随机的。而且不就是要把excle表中的图片保存在Attachments目录下吗，你意思是要提前吧图片保存在Attachments目录下？

执行之后，没有什么数据。

用下面的代码合并数据

 

 

Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog =DialogResult.OK Then
    Dim t As Table = Tables("表B")
    t.StopRedraw()
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim r As DataRow '= t.DataTable.Find("第一列 = '" & sheet(n, 0).text & "'")
        If r Is Nothing Then r = t.DataTable.AddNew()
        For i As Integer = 0 To sheet.Cols.Count -1
            Dim cname As String = sheet(0, i).text
            If t.Cols.Contains(cname) Then
                r(cname) = sheet(n, i).Text

            End If
            If cname = "照片" Then
                Dim fl As String = ProjectPath & "Attachments\" & r("身份证号") & ".jpg"
                msgbox(fl)
                If Sheet(n,i).SaveImage(fl) Then '如果照片保存成功
                    r("照片") = fileSys.GetName(fl)
                End If
            End If
        Next
    Next
    t.ResumeRedraw()
End If

还是没有达到效果，代码执行后，只显示最后一行数据，图片依然保存不了。已经崩溃。
此主题相关图片如下：ps8dnxf4zolxmac)mu%%lb9.png

foxtable项目和excel表格发上来。

这是excle表格，foxtabke 就是高速导入出来的表，然后把照片列改成了图片。

 

excel表格和foxtable项目发上来测试。

表格上传了

没看到你的问题，请正确上传附件。