Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)                                              

Dim OP1,DT1

Dim ValueColumnName(12),ValueColumnCount

Set DT1 =ScreenItems("DT1") '在线趋势控件名称

Dim i

For i=1 To DT1.ValueColumnCount

  DT1.ValueColumnIndex=i

  DT1.ValueColumnRemove=DT1.ValueColumnName'添加曲线前先删除所有曲线

Next

Set OP1=ScreenItems("OP1")'数据选择选项组控件名称

Select Case OP1.Process'根据选择项设定曲线条数及各个归档变量名称

  Case 1'选择第1项

  ValueColumntagName(0)="冷冻水回水温度1"   '定义曲线名称

  ValueColumnName(1)="过程值归档\LDS_Out_Temp1" 

  ValueColumnName(2)="过程值归档\LDS_In_Temp2" 

  ValueColumnName(3)="过程值归档\LDS_Out_Temp2" 

  ValueColumnName(4)="过程值归档\LDS_In_Temp3"

  ValueColumnName(5)="过程值归档\LDS_Out_Temp3"    

  ValueColumnName(6)="过程值归档\LDS_In_Temp4"

  ValueColumnName(7)="过程值归档\LDS_Out_Temp4"  

  ValueColumnName(8)="过程值归档\LDS_Out_Press1"

  ValueColumnName(9)="过程值归档\LDS_In_Press1"

  ValueColumnCount=10

  Case 2'选择第2项

  ValueColumntagName(0)="过程值归档\LQS_In_Temp1" 

  ValueColumnName(1)="过程值归档\LQS_Out_Temp1" 

  ValueColumnName(2)="过程值归档\LQS_In_Temp2"

  ValueColumnName(3)="过程值归档\LQS_Out_Temp2" 

  ValueColumnName(4)="过程值归档\LQS_In_Temp3"

  ValueColumnName(5)="过程值归档\LQS_Out_Temp3"

  ValueColumnName(6)="过程值归档\LQS_In_Temp4"

  ValueColumnName(7)="过程值归档\LQS_Out_Temp4"  

  ValueColumnCount=8

  Case 4'选择第3项

  ValueColumnName(0)="设备参数\1#ZJ.N1_Load"

  ValueColumnName(1)="设备参数\1#ZJ.LDS_InTemp"

  ValueColumnName(2)="设备参数\1#ZJ.LDS_OutTemp"

  ValueColumnName(3)="设备参数\1#ZJ.LQS_InTemp"

  ValueColumnName(4)="设备参数\1#ZJ.LQS_OutTemp"

  ValueColumnName(5)="设备参数\1#ZJ.N1_EvapPress"

  ValueColumnName(6)="设备参数\1#ZJ.N1_EvapTemp"

  ValueColumnName(7)="设备参数\1#ZJ.N1_CondPress"

  ValueColumnName(8)="设备参数\1#ZJ.N1_CondTemp"

  ValueColumnCount=9

  Case 8'选择第4项

  ValueColumnName(0)="设备参数\2#ZJ.N1_Load"

  ValueColumnName(1)="设备参数\2#ZJ.LDS_InTemp"

  ValueColumnName(2)="设备参数\2#ZJ.LDS_OutTemp"

  ValueColumnName(3)="设备参数\2#ZJ.LQS_InTemp"

  ValueColumnName(4)="设备参数\2#ZJ.LQS_OutTemp"

  ValueColumnName(5)="设备参数\2#ZJ.N1_EvapPress"

  ValueColumnName(6)="设备参数\2#ZJ.N1_EvapTemp"

  ValueColumnName(7)="设备参数\\2#ZJ.N1_CondPress"

  ValueColumnName(8)="设备参数\2#ZJ.N1_CondTemp"

  ValueColumnCount=9

  Case 16'选择第5项

  ValueColumnName(0)="设备参数\3#ZJ.N1_Load"

  ValueColumnName(1)="设备参数\3#ZJ.LDS_InTemp"

  ValueColumnName(2)="设备参数\3#ZJ.LDS_OutTemp"

  ValueColumnName(3)="设备参数\3#ZJ.LQS_InTemp"

  ValueColumnName(4)="设备参数\3#ZJ.LQS_OutTemp"

  ValueColumnName(5)="设备参数\3#ZJ.N1_EvapPress"

  ValueColumnName(6)="设备参数\3#ZJ.N1_EvapTemp"

  ValueColumnName(7)="设备参数\3#ZJ.N1_CondPress"

  ValueColumnName(8)="设备参数\3#ZJ.N1_CondTemp"

  ValueColumnCount=9

  Case 32'选择第6项

  ValueColumnName(0)="设备参数\4#ZJ.N1_Load"

  ValueColumnName(1)="设备参数\4#ZJ.LDS_InTemp"

  ValueColumnName(2)="设备参数\4#ZJ.LDS_OutTemp"

  ValueColumnName(3)="设备参数\4#ZJ.LQS_InTemp"

  ValueColumnName(4)="设备参数\4#ZJ.LQS_OutTemp"

  ValueColumnName(5)="设备参数\4#ZJ.N1_EvapPress"

  ValueColumnName(6)="设备参数\4#ZJ.N1_EvapTemp"

  ValueColumnName(7)="设备参数\4#ZJ.N1_CondPress"

  ValueColumnName(8)="设备参数\4#ZJ.N1_CondTemp"

  ValueColumnCount=9

  Case 64'选择第7项

  ValueColumnName(0)="设备参数\1#LDB.Current"

  ValueColumnName(1)="设备参数\1#LDB.Freq"

  ValueColumnName(2)="设备参数\2#LDB.Current"

  ValueColumnName(3)="设备参数\2#LDB.Freq"

  ValueColumnName(4)="设备参数\3#LDB.Current"

  ValueColumnName(5)="设备参数\3#LDB.Freq"

  ValueColumnName(6)="设备参数\4#LDB.Current"

  ValueColumnName(7)="设备参数\4#LDB.Freq"

  ValueColumnName(8)="设备参数\5#LDB.Current"

  ValueColumnName(9)="设备参数\5#LDB.Freq"

  ValueColumnName(10)="设备参数\6#LDB.Current"

  ValueColumnName(11)="设备参数\6#LDB.Freq"

  ValueColumnCount=12

  Case 128'选择第8项

  ValueColumnName(0)="设备参数\1#LQB.Current"

  ValueColumnName(1)="设备参数\1#LQB.Freq"

  ValueColumnName(2)="设备参数\2#LQB.Current"

  ValueColumnName(3)="设备参数\2#LQB.Freq"

  ValueColumnName(4)="设备参数\3#LQB.Current"

  ValueColumnName(5)="设备参数\3#LQB.Freq"

  ValueColumnName(6)="设备参数\4#LQB.Current"

  ValueColumnName(7)="设备参数\4#LQB.Freq"

  ValueColumnName(8)="设备参数\5#LQB.Current"

  ValueColumnName(9)="设备参数\5#LQB.Freq"

  ValueColumnName(10)="设备参数\6#LQB.Current"

  ValueColumnName(11)="设备参数\6#LQB.Freq"

  ValueColumnCount=12 

  Case 256'选择第9项

  ValueColumnName(0)="设备参数\1#LQT.Current"

  ValueColumnName(1)="设备参数\1#LQT.Freq"

  ValueColumnName(2)="设备参数\2#LQT.Current"

  ValueColumnName(3)="设备参数\2#LQT.Freq"

  ValueColumnName(4)="设备参数\3#LQT.Current"

  ValueColumnName(5)="设备参数\3#LQT.Freq"

  ValueColumnName(6)="设备参数\4#LQT.Current"

  ValueColumnName(7)="设备参数\#LQT.Freq"

  ValueColumnName(8)="设备参数\5#LQT.Current"

  ValueColumnName(9)="设备参数\5#LQT.Freq"

  ValueColumnName(10)="设备参数\6#LQT.Current"

  ValueColumnName(11)="设备参数\6#LQT.Freq"

  ValueColumnCount=12 

End Select

For i=1 To ValueColumnCount  '添加趋势并设定曲线的属性

  DT1.ValueColumnAdd = ValueColumnName(i-1)

  DT1.ValueColumnName= ValueColumnName(i-1)'曲线名称

  DT1.ValueColumnWindow= "Trend window 1" '曲线窗口名称

  DT1.ValueColumnTimeColumn= "Time axis 1"     '时间轴

  DT1.ValueColumnIndex= "Value axis i"   '数值轴

Next

'设置曲线开始时间和结束时间

Dim BeginTime,endTime

Set BeginTime=ScreenItems("BeginTime")

Set endTime=ScreenItems("endTime")

DT1.TimeColumnRangeType=1

DT1.Online =0

DT1.TimeColumnBeginTime  = BeginTime.value   '起始时间

DT1.TimeColumnEndTime = endTime.value

End Sub

想用ONLINE TABLE来实现数据切换显示，目前这个脚本做完后只能将第一个变量名称写入，且只能写到数据名称，并不能写入数据，时间段选择也不好用，请大神们帮忙看看