群里面有人询问怎么用脚本控制Onlinetable控件其实结束时间，其实这个可以在设定对话框进行，不过既然问题提出来了，我也想试验一下怎么通过脚本来实现。

画面上有一个onlinetable控件，名字修改为OT，设置两个输入输出域，名字分别修改为begintime和endtime，输入类型，数据位日期时间类型，不绑定任何变量，设置一个按钮，按钮鼠标点击VBS脚本设置如下：

Sub OnClick(ByVal Item)                               
Dim OT,begintime,endtime
Set OT=ScreenItems("OT")
'暂停
'OT.ToolbarButtonIndex=14
OT.StartStopUpdate
Set begintime=ScreenItems("begintime")
Set endtime=ScreenItems("endtime")
OT.TimeColumnRangeType=1 '开始结束时间模式
OT.TimeColumnBeginTime =begintime.InputValue
OT.TimeColumnEndTime =endtime.InputValue

End Sub

再增加一个按钮，用于恢复运行，vbs脚本如下：

Sub OnClick(ByVal Item)
Dim OT,pause
Set OT=ScreenItems("OT")
Set pause=OT.GetToolbarButton("StartStopUpdate")
If pause.locked Then  '如果当前是暂停运行的
   OT.StartStopUpdate
End If
End Sub