SetPenDataArray方法示例
2015-12-15 22:24:16   来源：   评论：0 点击：

下列示例说明了如何传入用户定义数据数组，以便在 。

Dim iWrkSpace As Workspace

Dim db_var_name As Database

Dim record_var As Recordset

Dim iCount As Integer

Dim dVal As Variant

Dim dtDate As Variant

Dim lQual As Variant

Dim iResult As Integer

Set iWrkSpace = CreateWorkspace("", "admin", "", dbUseJet)

Set db_var_name = iWrkSpace.OpenDatabase("Chart.mdb")

Set record_var = db_var_name.OpenRecordSet("Data Query", dbOpenDynaset)

record_var.MoveLast

iCount = record_var.RecordCount

record_var.MoveFirst

Dim iRow As Integer

Dim iCol As Integer

Dim Value(500) As Double

Dim Times(500) As Date

Dim Quality(500) As Long

Dim i As Integer

For i = 0 To iCount - 1

Value(i) = record_var.Fields("Value").Value

Times(i) = record_var.Fields("Time").Value

Quality(i) = record_var.Fields("Quality").Value

'Quality(i) 应设为192（良好数据质量），以显示数据

record_var.MoveNext

Next i

db_var_name.Close

dVal = Value

dtDate = Times

lQual = Quality

Call Pen1.SetPenDataArray(iCount, dVal, dtDate, lQual)