Hallo,
wie ist es möglich, in eine Kanal der eine Matrixstruktur hat über die Range Anweisung
einen Abschnitt einer beliebigen Spalte mit
dem Inhalt eines Arrays zu füllen ?
Auf einzelne Werte in der Matrix kann wie im
Beispiel zugegriffen werden.
Option Explicit
Public Kanal As DataSet
Sub Test()
Dim Wert(3) As Double
Wert(0) = 11
Wert(1) = 22
Wert(2) = 33
Wert(3) = 44
If Kanal Is Nothing Then
Set Kanal = ActiveDatabase.ActiveFolder.Add(“Matrix”, fpObjectTypeDataSet, fpNameClashHandlingOverwrite)
Kanal.DataStructure = fpDataStructureDataMatrix
Kanal.DataType(fpDataComponentX) = fpDataTypeFloat32
Kanal.DataType(fpDataComponentY) = fpDataTypeFloat32
Kanal.DataType(fpDataComponentAll) = fpDataTypeFloat32
Kanal.NumberOfColumns = 4
Kanal.NumberOfRows = 9
Kanal.FillColumns “(NumberOfValues(i), FloatingPoint32 0, FloatingPoint32 0)”, fpDataComponentAll
Kanal.Update
End If
Kanal.Value(fpDataComponentY, 1, 4) = 40 ‘ i.O.
Kanal.Range(fpDataComponentY, 1, 1, 1, 4) = Wert ‘ Fehler, Objekt unterstützt Methode nicht
End Sub
Hat jemand eine Idee was ich hier falsch mache ?
