以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 关于导出表的排序问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160264) |
-- 作者:fvcfox -- 发布时间:2021/1/27 1:42:00 -- 关于导出表的排序问题 下面代码的导出表不会按红色代码排序导出,请指教 Tables("统计表").Sort="排名" Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog dlg.Filter= "Excel文件|*.xls" \'设置筛选器 dlg.FileName = "统计表" & Format(Date.Now, "yyyyMMdd") & ".xls" If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 Dim ex As New Exporter ex.SourceTableName = "统计表" \'指定导出表 ex.FilePath = dlg.FileName \'指定目标文件 ex.Format = "Excel" \'导出格式为Excel Dim str As String Tables("评价类别").Sort="_Identify DESC" For Each r As Row In Tables("评价类别").Rows str= ","& r("评价类别") & str Next ex.Fields = "编号,部门,自身类别,姓名" & str & ",合计,排名,等次" \'指定导出字段 ex.Export() \'开始导出 messagebox.show("已完成 [统计表] 的EXCEL导出!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) End If
|
-- 作者:有点蓝 -- 发布时间:2021/1/27 8:32:00 -- Exporter是根据datatable导出的,不会受table的排序影响 使用SaveExcel:http://www.foxtable.com/webhelp/topics/0559.htm
|