我参考A0296资料,用WINCC的用户归档做了一个报表,脚本如下:
Sub OnClick(Byval Item)
Dim s
Set s = HMIRuntime.Tags("sqlriqijiu")
Dim sqljiua
Set sqljiua = HMIRuntime.Tags("sqljiua")
Dim sqljiu
Set sqljiu = HMIRuntime.Tags("sqljiu")
sqljiu.Write "是否生成报表"
s.Read
sqljiua.Read
sqljiua.Write"selectriqijiu1,shijianjiu,var1,var2,var3,var4,var5,var6,var7,var8,var9,var10 from UA#DailyReport where riqijiu1 like '"&s.Value&"%' and shijianjiu between 8 and 19 order by shijianjiu"
MsgBox sqljiu.Value
End Sub
输入查询日期,运行没问题,将8点到19点的白班数据可以全部显示,但怎么查找20点到第二天早上7点的夜班数据呀,因为是两个班的报表
我想到一个方法,是用两个ODBC数据库拼在一起,第一个数据库写:sqljiua.Write"selectriqijiu1,shijianjiu,var1,var2,var3,var4,var5,var6,var7,var8,var9,var10 from UA#DailyReport where riqijiu1 like '"&s.Value&"%' and shijianjiu between 20 and 23 order by shijianjiu" 只读取20点到23点的数据,然后
第二个数据库写第二天的0点到7点,但问题是我怎么把 '"&s.Value&"%'中的日期变为输入日期加一天呀?用dateadd()吗?求详细转换过程。