我把趋势导入的脚本修改了一下，同时输入变量表中变量名和归档表中变量名，获取变量表中变量注释称作为曲线名称，把这个脚本写到传感器数值显示的IO域就可以实现点击数值显示该数值的历史趋势，效果还可以，但是做画面会麻烦些

脚本：

Sub OnClick(Byval Item)                                         

Dim myTrend

Dim TrendName,TrendTagName

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

Set TrendName = HMIRuntime.Tags("CH1.ALM_Code") '变量管理变量名

TrendTagName = "CH1\CH1.ALM_Code" '添加归档内变量名

Dim i,n '防重复

n = 0

For i=0 To myTrend.TrendCount-1

myTrend.TrendIndex = i

If TrendName.Comment = myTrend.TrendName Then

n = 1

End If

Next

If n = 0 Then

myTrend.TrendAdd = TrendName.Comment

myTrend.TrendTagName = TrendTagName

myTrend.TrendTrendWindow = "Window1"'曲线窗口名称

myTrend.TrendTimeAxis = "Time1"'时间轴

myTrend.TrendValueAxis = "Value1"'数值轴

Dim m

m = myTrend.TrendCount Mod 10

Select Case m '设定各曲线颜色

Case 0

myTrend.TrendColor = RGb(0,0,0)'黑色

Case 1

myTrend.TrendColor = RGb(255,0,0)'红色

Case 2

myTrend.TrendColor = RGb(0,255,0)'绿色

Case 3

myTrend.TrendColor = RGb(0,0,255)'蓝色

Case 4

myTrend.TrendColor = RGb(255,255,0)'黄色

Case 5

myTrend.TrendColor = RGb(0,255,255)'青色

Case 6

myTrend.TrendColor = RGb(120,36,36)'棕色

Case 7

myTrend.TrendColor = RGb(255,0,255)'洋红

Case 8

myTrend.TrendColor = RGb(255,255,255)'白色

Case 9

myTrend.TrendColor = RGb(0,128,0)'深绿

End Select

End If

End Sub