主题：高速导出DBF时出现错误 ??

呃，我导出正常，内外数据源都没问题。

 你安装了MS Office了吗？

 也有可能是你的路径问题，保存到c盘、D盘根目录看看

 不知道是什么问题，其它形式的导出是否也有问题？

 

 

mark 用代码导出dbf格式文件

 

Dim dlg As new SaveFileDialog
dlg.FileName = CurrentTable.Name
If dlg.ShowDialog = DialogResult.OK Then
    Dim str_oleConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileSys.GetParentPath(dlg.FileName)  & ";Extended Properties=dBASE IV;"
    Dim ole_conn As New System.Data.OleDb.OleDbConnection(str_oleConn)
    Try
        ole_conn.Open()
        Dim str As String = ""
        For Each c As Col In CurrentTable.cols
            str &= c.name & " char(16),"
        Next
        output.show(str)
        Dim cmd1 As New System.Data.OleDb.OleDbCommand("Create Table " &  FileSys.GetName(dlg.FileName) & " (" & str.Trim(",") & ")", ole_conn)
        cmd1.ExecuteNonQuery()
       
        For Each r As Row In CurrentTable.rows
            str = ""
            For Each c As Col In CurrentTable.cols
                str &= "'" & r(c.name) & "',"
            next
            Dim cmd2 As New System.Data.OleDb.OleDbCommand("Insert Into " & FileSys.GetName(dlg.FileName) & " values (" & str.Trim(",")  & ")", ole_conn)
            output.show(str)
            cmd2.ExecuteNonQuery()
        next
        msgbox("保存成功")
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    Finally
        ole_conn.Close()
    End Try
   
End If

 电脑问题。把你的Office卸载重装一次看看。