You need to write a macro to be able to create new datasets. Here are the basic steps:
To access the value of an existing dataset in the root folder of the current database you can use the following code:
[code]
Sub AccessValue()
Dim oDataSet As DataSet
Dim vtValue As Variant
Set oDataSet = ThisDatabase.RootFolder.Object(“Dataset”)
vtValue = oDataSet.Value(fpDataComponentY)
End Sub
[/code]
To create a new dataset you can use the following code (you can also start macro recording and create a new dataset manually to get some similar code generated):
[code]
Sub CreateNewDataset()
Dim oDataSet As DataSet
Set oDataSet = ThisDatabase.RootFolder.Add(“NewDataset”, fpObjectTypeDataSet)
‘ omit the next line if you need an empty dataset
oDataSet.Value = Array(1, 2, 3, 4) ‘ some values
End Sub
[/code]
Appending a value to a dataset basically looks like that:
[code]
Sub AppendValueToDataset()
Dim oDataSet As DataSet
Set oDataSet = ThisDatabase.RootFolder.Object(“Dataset”)
With oDataSet
.NumberOfRows = .NumberOfRows + 1
.Value(, , .NumberOfRows) = 12345 ‘ the new value
End With
End Sub
[/code]
The rest is just a matter of running over the retrieved value (using a for loop for instance), append the required values to the dataset you created before and creating new datasets as required.
Some related tips: Take a look at the topic [i]Working with Data Sets[/i] in the online help for a complete discussion of FlexPro data access in VBA. You could use FPScript functions to detect the value ranges for the new datasets more effectively (see for instance [b]ValuesAboveLevel[/b] or [b]LevelCrossings[/b]). It is also possible to use the FPScript functions from VBA (see the sample for the [b]FPScriptFunction[/b] property).
Support
support@weisang.com
