- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 数据库根据条件筛选出若干临时表，如何把这若干个表导出到同一个电子表的不同工作表中。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86441)
-- 发布时间：2016/6/17 13:31:00
-- 数据库根据条件筛选出若干临时表，如何把这若干个表导出到同一个电子表的不同工作表中。
如题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.foxdb |
[此贴子已经被作者于2016/6/17 13:45:25编辑过]
-- 发布时间：2016/6/17 14:36:00
--
Dim cmd As new sqlcommand
Dim t As Table=e.Form.controls("table1").Table
For i As Integer=1 To 7
t.Fill("select * fr om {表A} where 第一列=\'" & i & "\'", False)
t.saveExcel("d:\\test.xls", i)
Next