主题：以下代码导出后，列不全，有什么办法？

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

第二个问题是导出后，逻辑字段能否显示是和否？