- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 我用循环语句打印数据库里的记录，在excel表里始终是和第一条记 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121471)
-- 发布时间：2018/7/6 18:23:00
-- 我用循环语句打印数据库里的记录，在excel表里始终是和第一条记
我用循环语句打印数据库里的记录，在excel报表里始终是第一条记
是什么原因呢，如果加all是全打印了，但全打在一张excel表里了，我想一张excel报表是数据库的一条记录
[此贴子已经被作者于2018/7/6 18:23:26编辑过]
-- 发布时间：2018/7/6 20:20:00
--
上传实例和模板看看。不知道你怎么做的
-- 发布时间：2018/7/6 20:25:00
--
For Each dr As Row In Tables("一户一清单").Rows
p.value=p.value+1
Vars("cz")= dr("乡") & "乡(镇)街道" & dr("村") & "行政村" & dr("组")
Dim Book As New XLS.Book(ProjectPath & "Attachments\\一户一清单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
Dim fl As String = ProjectPath & "Reports\\一户一清单.xls"
Book.Build() \'生成细节区
book.Save(fl)
Dim App As New MSExcel.Application
app.quit
Dim Copyfl As String = "D:\\一户一清单\\" & dr("乡") & "乡(镇)及街道" & dr("村") & "行政村" & dr("组") & dr("姓名") & ".xls"
FileSys.CopyFile(fl, copyfl, True)
next
此主题相关图片如下：1.png
[此贴子已经被作者于2018/7/6 20:26:33编辑过]
-- 发布时间：2018/7/6 21:08:00
--
For Each dr As Row In Tables("一户一清单").Rows
p.value=p.value+1
Tables("一户一清单").Position = dr.Index
Vars("cz")= dr("乡") & "乡(镇)街道" & dr("村") & "行政村" & dr("组")
Dim Book As New XLS.Book(ProjectPath & "Attachments\\一户一清单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
Dim fl As String = ProjectPath & "Reports\\一户一清单.xls"
Book.Build() \'生成细节区
book.Save(fl)
Dim App As New MSExcel.Application
app.quit
Dim Copyfl As String = "D:\\一户一清单\\" & dr("乡") & "乡(镇)及街道" & dr("村") & "行政村" & dr("组") & dr("姓名") & ".xls"
FileSys.CopyFile(fl, copyfl, True)
Next