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

--  作者：fendouww --  发布时间：2022/9/7 23:09:00 --  数据导出 Dim t As Table = Tables("窗口1_Table1") dim aa As String = t.Name Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog dlg.Filter = "Excel文件|*.xlsx" \'设置筛选器 dlg.InitialDirectory = ProjectPath & "导出文件\\" dlg.FileName = Date.Today & aa & ".xlsx" If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮     Dim flg As New SaveExcelFlags     flg.RowNumber = True     flg.CellStyle = True     flg.MergedRanges = True     t.SaveExcel(dlg.FileName, aa , flg) End If Dim Proc As New Process \'打开工作簿 Proc.File = dlg.FileName Proc.Start() 使用表导出，七万多条就会闪退，无法导出,有好办法可以一次导出大量数据吗?我搜索过也没有SQL语句可以,请问老师有方法吗?现在是可以查询出这么多条数据,但无法一次导出

--  作者：有点蓝 --  发布时间：2022/9/8 8:34:00 --   换种方式：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=100317&replyID=&skin=1