以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 后台导出数据的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114312) |
-- 作者:aza520 -- 发布时间:2018/2/2 17:58:00 -- 后台导出数据的问题 在窗口的“导出明细表”设如下代码,想导出上面记录表里关联的所有数据,现在只能导出第一条记录,请问老师是怎么回事? Systemready = False DataTables("S征地明细").loadTop = "" DataTables("S征地明细").loadpage = 0 DataTables("S征地明细").load Systemready = True Dim str = DataTables("S征地记录").SQLGetComboListString("协议书编号", DataTables("S征地记录").LoadFilter) str = str.replace("|", "\',\'") DataTables("S征地明细").LoadFilter = "协议书编号 in (\'" & str & "\')" DataTables("S征地明细").LoadTop = "" DataTables("S征地明细").LoadPage = 0 DataTables("S征地明细").Load Dim Book As New XLS.Book(ProjectPath & "Attachments\\征地明细表.xls") Dim fl As String = ProjectPath & "Reports\\征地明细表.xls" Book.Build() \'生成细节区 Book.Save(fl) \'保存工作簿 Dim Proc As New Process \'打开工作簿 Proc.File = fl Proc.Start() |
-- 作者:aza520 -- 发布时间:2018/2/2 17:58:00 -- 如图: |
-- 作者:有点甜 -- 发布时间:2018/2/2 17:59:00 -- 你excel模板设置有问题
http://www.foxtable.com/webhelp/scr/0201.htm
|