| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 多个数据表导出失败 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=196442) |
| -- 作者：Phoebe_fdk -- 发布时间：2025/4/27 16:29:00 -- 多个数据表导出失败 Dim ex As New Exporter For Each nd As WinForm.TreeNode In tv.AllNodes If nd.Checked = True Then \'\'\'\'最末级节点,且已被勾选 ex.SourceTableName = nd.Text \'指定导出表 Select Case e.Form.Controls("cb_Format").value Case "txt" ex.Format = "Delimited" \'导出格式为固定宽度的文本文件 ex.Header = True ex.FilePath = fl & "\\" \'指定目标文件 Case "Access" ex.Format = "Access2007" \'导出格式为Access 2007 ex.FilePath = fl & "\\" & nd.Text & ".accdb" \'指定目标文件 Case "Excel" ex.FilePath = fl & "\\" & nd.Text & ".xlsx" \'指定目标文件 ex.Format = "Excel" \'导出格式为Excel End Select ex.Export() \'开始导出 End If Next 上述代码在输出选定的多个数据表时，提示“列**不属于表 *** ”，且只能成功导出一个数据表，是哪个地方要恢复一下吗？
|
| -- 作者：有点蓝 -- 发布时间：2025/4/27 17:22:00 -- Dim ex As Exporter For Each nd As WinForm.TreeNode In tv.AllNodes If nd.Checked = True Then \'\'\'\'最末级节点,且已被勾选 ex = New Exporter ex.SourceTableName = nd.Text \'指定导出表 Select Case e.Form.Controls("cb_Format").value Case "txt" ex.Format = "Delimited" \'导出格式为固定宽度的文本文件 ex.Header = True ex.NewTableName = nd.Text \'指定文件名，注意无须扩展名 ex.FilePath = fl & "\\" \'指定目标文件 Case "Access" ex.Format = "Access2007" \'导出格式为Access 2007 ex.FilePath = fl & "\\" & nd.Text & ".accdb" \'指定目标文件 Case "Excel" ex.FilePath = fl & "\\" & nd.Text & ".xlsx" \'指定目标文件 ex.Format = "Excel2007" \'导出格式为Excel End Select ex.Export() \'开始导出 End If Next |