由于正常查询要用分页，而导出时是所有页导出，所以用了如下代码
FilterStr 是查询条件
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "Select * From {操作日志} Where " & FilterStr
dt = cmd.ExecuteReader()
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim ex As New Exporter
ex.SourceTableName = dt.name '指定导出表
ex.Format = "Excel" '导出格式为Excel
ex.FilePath = dlg.FileName '指定目标文件
ex.Export() '开始导出
End If
cmd.ExecuteReader 的临时表没法取表名，怎么办
加好友 
发短信
Post By：2014/2/28 14:17:00 [只看该作者]
