以文本方式查看主题

-  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
--  
如图:

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20180202175423.png
图片点击可在新窗口打开查看



--  作者:有点甜
--  发布时间:2018/2/2 17:59:00
--  

你excel模板设置有问题

 

http://www.foxtable.com/webhelp/scr/0201.htm