再次求教：
通过创建文本变量16位字符集，分别输入年、月、日 小时、分、秒，之后组合，
Dim s
s =HMIRuntime.Tags("y1").Read &"/" & HMIRuntime.Tags("m1").Read &"/" & HMIRuntime.Tags("d1").Read &" " & HMIRuntime.Tags("h1").Read &":" & HMIRuntime.Tags("min1").Read &":" &"12"
HMIRuntime.Tags("s").Write "t6"
HMIRuntime.Tags("t6").Write s
之后，将组成的变量t6(文本16)，用于TimeColumnBeginTime，代码如下
Dim beginTime,endTime
beginTime = "2017/4/12 0:12:12"
'endTime = "2017-4-12" & " 11:59:59"
b ="2017/4/12 12:12:12"
Set obj = HMIRuntime.ActiveScreen.ScreenItems("tablecontrol1")
obj.Online = 0
obj.TimeColumnRangeType = 1
obj.TimeColumnBeginTime = "2017/4/12 12:12:12"
'obj.TimeColumnBeginTime = "t6"
obj.TimeColumnEndTime = "2017/4/12 23:12:12"
b =HMIRuntime.Tags("t6").Read
a = MsgBox(b, 2, "标题")
通过msg感觉时间格式是正确的，但是运行后 online control table 没有反应，使用obj.TimeColumnBeginTime = "2017/4/12 12:12:12"，就显示正常，搞不懂求教的“”“文本格式的话，需要你用脚本连接成日期格式，诸如：yyyy-MM-DD HH:mm:ss这种形式”是如何实现的，再者时间变量在哪里创建呢？
请教大侠我错在哪里了？
图片说明：
最佳答案
Dim obj
Set obj = ScreenItems("控件1")
obj.StartStopUpdate
obj.TimeColumnRangeType = 1
obj.TimeColumnBeginTime = "2017/04/15 7:55:30"
obj.TimeColumnEndTime = "2017/04/16 00:00:00"
我测试的脚本，好用
想手动设置时间的话，得先让控件停止刷新
图片说明：
提问者对于答案的评价：
搜集了一下，用formatdatetime实现了
最佳答案作者回复:
哦，是的，vbs有这个函数，我习惯自己连接字符了.....
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc136033.html
微信扫一扫 
支付宝扫一扫 