以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  以下代码导出后，列不全，有什么办法？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=108983)
--  作者：xxfoxtable
--  发布时间：2017/11/1 23:09:00
--  以下代码导出后，列不全，有什么办法？

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
      Tables("纳税人档案").SaveExcel(dlg.FileName, "纳税人档案")  \'保存文件
 End If

第二个问题是导出后，逻辑字段能否显示是和否？
--  作者：有点甜
--  发布时间：2017/11/1 23:15:00
--  

1、saveExcel会把所有可见列都导出的。如果想把不可见也导出，参考

 

http://www.foxtable.com/webhelp/scr/0559.htm

 

2、导出前可以加入临时列、表达式列，把true弄成是，把false弄成否，然后导出临时列。
--  作者：xxfoxtable
--  发布时间：2017/11/1 23:17:00
--  
第二个问题，代码应该怎么写啊？
--  作者：有点甜
--  发布时间：2017/11/1 23:19:00
--  

方法一：加入临时列

 

http://www.foxtable.com/webhelp/scr/1428.htm

 

方法二：用代码导出

 

http://www.foxtable.com/webhelp/scr/1148.htm