01 PI数据更新
        数据更新在一些图里在一些图里用得很多,无非是updata函数,给一个例子。
        假设我们在图上有一个点value,布几个listbox显示数据和日期。
  
        代码大致如下:

 Private Sub CommandButton1_Click() '清空原有数据
ListBox1.Clear
ListBox2.Clear
ListBox3.Clear
ListBox4.Clear
ListBox5.Clear
End Sub

Private Sub listbox2_Click()  '对应
'这部分可选
ListBox3.ListIndex = ListBox2.ListIndex
End Sub

Private Sub listbox3_Click()
'这部分可选
ListBox2.ListIndex = ListBox3.ListIndex
End Sub
Private Sub listbox4_Click()
'这部分可选
ListBox5.ListIndex = ListBox4.ListIndex
End Sub

Private Sub listbox5_Click()
'这部分可选
ListBox4.ListIndex = ListBox5.ListIndex
End Sub

Private Sub Value_DataUpdate()
Dim val As Variant
Dim mydate As Variant
Dim mystatus As Variant

val = Value.GetValue(mydate, mystatus)  '使用getvalue函数

ListBox1.AddItem val & "    " & mydate

ListBox2.AddItem val, "0.00"
ListBox3.AddItem mydate

If val > TextBox1.Text Then

ListBox4.AddItem val
ListBox5.AddItem mydate
End If

End Sub

posted on 2006-04-03 11:20  zljini  阅读(1031)  评论(0编辑  收藏  举报