再问一个问题,我想导出带格式的Excel表格,用下面的代码。如果用cmd.executeReader()生成的窗口表,导出Excel带颜色的,但querybuilder的窗口表却没有用。不知道什么原因?
'窗口显示出来之后,currentTable就是窗口表
Dim strSheet As String = e.Form.Controls("lblTableName").text
Tables(e.Form.Name & "_Table1").Focus
Dim flg As New SaveExcelFlags
flg.RowNumber = True
flg.CellStyle = True
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls; *.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Tables(e.Form.Name & "_Table1").SaveExcel(dlg.FileName, strSheet, flg) '保存文件
End If
Dim Proc As new Process
proc.File=dlg.FileName
proc.Verb = "open"
proc.Start()