- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 报表导出 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102859)
-- 发布时间：2017/6/26 22:31:00
-- [求助] 报表导出
项目 窗口2，中的导出按钮，
1、不能过滤今天的日期，
2、制作人 加不上
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.table |
代码如下，请各位高手看看呢？
Dim Book As New XLS.Book(ProjectPath & "Attachments\\二维码.xls") \'打开模板
Dim fl As String = ProjectPath & "Reports\\" & Tables("二维码").current("管理号码") & "-" & Tables("二维码").current("管理号码1") & ".xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(Sheet.Rows.Count, 0).Value = "制作人:" & User.Name
Sheet(3,8).Value = "<生产日期 = # " & Date.Today & "#>" \'写入打印条件
Book.Build() \'生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:二维码.xls |
-- 发布时间：2017/6/26 22:41:00
--
项目使用的是外部数据源，上传外部数据库文件。
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Users\\wx\\Desktop\\新建文件夹\\KLF二维码打印配套系统.mdb;Persist Security Info=False
[此贴子已经被作者于2017/6/26 22:42:14编辑过]
-- 发布时间：2017/6/26 22:52:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:012.rar |
不好意思 忘了
-- 发布时间：2017/6/26 23:08:00
--
Dim Book As New XLS.Book(ProjectPath & "Attachments\\二维码.xls") \'打开模板
Dim fl As String = ProjectPath & "Reports\\" & Tables("二维码").current("管理号码") & "-" & Tables("二维码").current("管理号码1") & ".xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(3, 1).Value = "制作人:" & User.Name
Sheet(2,9).Value = "<[生产日期] = # " & Date.Today & "#>" \'写入打印条件
Book.Build() \'生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:二维码.xls |