以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  excle报表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120159)
--  作者：13775189031
--  发布时间：2018/6/8 13:56:00
--  excle报表
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”运算符后缺少操作数。

不知道哪有问题！
--  作者：有点甜
--  发布时间：2018/6/8 14:17:00
--  

改成

 

Sheet(6,11).Value = "<统计日期 >= #" & dt1 & "# And 统计日期 <= #" & dt2 & "#>" \'写入打印条件
--  作者：13775189031
--  发布时间：2018/6/8 14:27:00
--  
如果在增加一个条件，例如打印 “统计日期”为本月的 “物资说明”=“紧固件”的列
该怎么改？
--  作者：有点甜
--  发布时间：2018/6/8 14:48:00
--  

Sheet(6,11).Value = "<统计日期 >= #" & dt1 & "# And 统计日期 <= #" & dt2 & "# and 物资说明=\'紧固件\'>" \'写入打印条件
--  作者：13775189031
--  发布时间：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”运算符后缺少操作数。

请教是什么问题？
--  作者：有点蓝
--  发布时间：2018/6/8 17:07:00
--  
规则看看是哪句代码出错，调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm