Foxtable(狐表)用户栏目专家坐堂 → excle报表


  共有2074人关注过本帖树形打印复制链接

主题:excle报表

美女呀,离线,留言给我吧!
13775189031
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:827 积分:5748 威望:0 精华:0 注册:2017/12/19 14:46:00
excle报表  发帖心情 Post By:2018/6/8 13:56:00 [显示全部帖子]

Dim Book As New XLS.Book(ProjectPath & "Attachments\QR755-002领料清单.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\QR755-002领料清单.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(1)
Sheet(6,11).Value = "<"统计日期 >= #" & dt1 & "# And 统计日期 <= #" & dt2 & "#">" '写入打印条件
Book.Build() '生成报表
Book.Save(fl) 
Dim Proc As New Process 
Proc.File = fl
Proc.Start()


按“统计日期”打印当月领料清单,写入单元格后预览,显示
.NET Framework 版本:2.0.50727.8762
Foxtable 版本:2018.3.9.1
错误所在事件:
详细错误信息:
语法错误:“Book”运算符后缺少操作数。

不知道哪有问题!

 回到顶部
美女呀,离线,留言给我吧!
13775189031
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:827 积分:5748 威望:0 精华:0 注册:2017/12/19 14:46:00
  发帖心情 Post By:2018/6/8 14:27:00 [显示全部帖子]

如果在增加一个条件,例如打印 “统计日期”为本月的 “物资说明”=“紧固件”的列
该怎么改?

 回到顶部
美女呀,离线,留言给我吧!
13775189031
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:827 积分:5748 威望:0 精华:0 注册:2017/12/19 14:46:00
  发帖心情 Post By:2018/6/8 15:44:00 [显示全部帖子]

Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天
Dim Book As New XLS.Book(ProjectPath & "Attachments\QR755-002领料清单.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\QR755-002领料清单.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(1)
Sheet(6,11).Value = "<统计日期 >= #" & dt1 & "# And 统计日期 <= #" & dt2 & "# and 物资说明='紧固件'>" '写入打印条件
Book.Build() '生成报表
Book.Save(fl) 
Dim Proc As New Process 
Proc.File = fl
Proc.Start()

.NET Framework 版本:2.0.50727.8762
Foxtable 版本:2018.3.9.1
错误所在事件:
详细错误信息:
语法错误:“y”运算符后缺少操作数。

请教是什么问题?


 回到顶部