IFIX历史趋势问题http://www.ad.siemens.com.cn/service/answer/tobe_solution.asp?Q_id=56279&cid=1027
悬赏分：30 - 离问题结束还有7天0小时
Private Sub AlarmSummaryOCX2_AlarmAck()

End Sub

Private Sub Calendar3_Click()
With HistTrndCht
.EndTime = Calendar3.Value & " 23:59:59"
End With
End Sub

Private Sub CFixPicture_Initialize()

ComboBox1.AddItem "温度"
ComboBox1.AddItem "吸力"

Private Sub ComboBox1_Change()
If ComboBox1.Value = "温度" Then
HistTrndCht.Pens.Item(1).Source = "Hist.FIX.piw512.F_CV"
ComboBox2.Value = "请选择"
ComboBox3.Value = "请选择"
ComboBox4.Value = "请选择"
ComboBox5.Value = "请选择"
ComboBox6.Value = "请选择"
ComboBox7.Value = "请选择"
ComboBox8.Value = "请选择"
ComboBox9.Value = "请选择"
ComboBox10.Value = "请选择"
ComboBox11.Value = "请选择"
End If
If ComboBox1.Value = "吸力" Then
HistTrndCht.Pens.Item(1).Source = "Hist.FIX.piw550.F_CV"
ComboBox2.Value = "请选择"
ComboBox3.Value = "请选择"
ComboBox4.Value = "请选择"
ComboBox5.Value = "请选择"
ComboBox6.Value = "请选择"
ComboBox7.Value = "请选择"
ComboBox8.Value = "请选择"
ComboBox9.Value = "请选择"
ComboBox10.Value = "请选择"
ComboBox11.Value = "请选择"
End If
HistTrndCht.AutoScaleDisplayLimits
End Sub
Private Sub BtnTime50ScrlFwCmd_Click()
HistTrndCht.ScrollPercentage = 50
HistTrndCht.ScrollForward
End Sub

Private Sub Group11_Click()

End Sub

Private Sub Group41_Click()

End Sub

Private Sub Group12_Click()

End Sub

Private Sub Group22_Click()

End Sub

Private Sub Group39_Click()

End Sub

Private Sub Group35_Click()

End Sub

Private Sub Group37_Click()

End Sub

Private Sub Group28_Click()

End Sub

Private Sub HistTrndCht_Click()

End Sub

Private Sub BtnTime15minCmd_Click()
With HistTrndCht
.Duration = 900
.TimeBeforeNow = 900
.RefreshChartData
End With
End Sub

Private Sub BtnTime1hrCmd_Click()
With HistTrndCht
.Duration = 3600
.TimeBeforeNow = 3600
.RefreshChartData
End With
End Sub

Private Sub ComboBox11_Click()

End Sub

Private Sub BtnTime8hrCmd_Click()
With HistTrndCht
.Duration = 28800
.TimeBeforeNow = 28800
.RefreshChartData
End With
End Sub

Private Sub PipeVert23_Edit()
frmPipes.InitializeDynamo PipeVert23
frmPipes.Show
End Sub

Private Sub BtnTimeScrlNowCmd_Click()
With HistTrndCht
.EndTime = Now
.RefreshChartData
End With
End Sub

Private Sub PipeVert19_Edit()
frmPipes.InitializeDynamo PipeVert19
frmPipes.Show
End Sub

Private Sub ComboBox1_Click()

End Sub

Private Sub BtnTime1dayCmd_Click()
With HistTrndCht
.Duration = 86399
.TimeBeforeNow = 86399
.RefreshChartData
End With
End Sub

Private Sub BtnTime100ScrlBkCmd_Click()
HistTrndCht.ScrollPercentage = 99.99
HistTrndCht.ScrollBack
End Sub

Private Sub BtnTime100ScrlFwCmd_Click()
HistTrndCht.ScrollPercentage = 99.99
HistTrndCht.ScrollForward
End Sub
Private Sub Calendar1_Click()
With HistTrndCht
.EndTime = Me.Calendar1.Value
.RefreshChartData
End With
End Sub

问题补充：我用IFIX做了个历史趋势，多个数据在同一画面，当选某一数据时就显示该数据的趋势图，每个数据趋势图的Y轴值是不一样的，请教高手选不同数据时调用不同Y轴值的趋势图如何做，以上是我的部分数据VB脚本，数据太多了，没法全部发出来，需要如何修改，请指教。QQ6587982，请赐教