以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  导出excel问题sql2008数据库  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=173151)

--  作者：xxfoxtable --  发布时间：2021/11/17 0:22:00 --  导出excel问题sql2008数据库 调用                 MainTable=Tables("销售")                 Dim ccbCols As String="货号,品名,封装,厂商,数量,单价,金额,仓库,区域,电话,供应商QQ,公司名称,备注,查价员,修改时间,库存下限,最近出货时间,倍数"                 Functions.Execute("导出到excel",1,ccbCols.Split(",")) 函数 Dim state As Integer = Args(0) Dim cols() As String = Args(1) Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog dlg.Filter= "Excel2007文件|*.xlsx" \'设置筛选器 dlg.FileName = CurrentTable.Name If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮     Dim d1 As Date = Date.Now     Dim _execl As New ExOpenXml.ExOXExecl()     _execl.Open(dlg.FileName)     If state = 0 Then \'直接导,内容占用大,速度快         _execl.ToExecl(CurrentTable.DataTable.Basetable,,False,cols) \'第三个参数为false,为覆盖导出     Else \'按流的方式导出,内存占用小,速度稍慢         _execl.WriteToExecl(CurrentTable.DataTable.Basetable,,False,cols) \'第三个参数为false,为覆盖导出     End If     _execl.Dispose() End If 报错 此主题相关图片如下：aa.png [此贴子已经被作者于2021/11/17 0:22:45编辑过]

--  作者：有点蓝 --  发布时间：2021/11/17 8:44:00 --   请上传实例测试

--  作者：xxfoxtable --  发布时间：2021/11/17 9:56:00 --    数据库太大,咋办?

--  作者：有点蓝 --  发布时间：2021/11/17 10:15:00 --   新建项目，数据导入内部表发上来测试。是加载了多少行数据导出有问题？试试先加载1000行、1W、10W测试有没有问题？

--  作者：xxfoxtable --  发布时间：2021/11/17 10:22:00 --    能发给你邮箱里吗?

--  作者：有点蓝 --  发布时间：2021/11/17 10:24:00 --   我没有邮箱。可以删除一些敏感的列数据，导入新项目，自己测试，如果有同样的问题在发上来。如果新项目没有问题，考虑数据本身的原因