This example populates a combo box with the various summary field kind options and then sets a summary field to the kind selected. This code assumes that you have elsewhere declared a variable cr for your report.
Private Sub Form_Load() Dim i As Integer
cmbSummaryType.AddItem "crSTSum" cmbSummaryType.AddItem "crSTAverage" cmbSummaryType.AddItem "crSTSampleVariance" cmbSummaryType.AddItem "crSTSampleStandardDeviation" cmbSummaryType.AddItem "crSTMaximum" cmbSummaryType.AddItem "crSTMinimum" cmbSummaryType.AddItem "crSTCount" cmbSummaryType.AddItem "crSTPopVariance" cmbSummaryType.AddItem "crSTPopStandardDeviation" cmbSummaryType.AddItem "crSTDistinctCount"
Get the SummaryFields collection.
Set CRXSummaryFieldDefinitions = CRXReport.SummaryFields txtCount = CrystalSummaryFieldDefinitions.Count
For i = 1 To CRXSummaryFieldDefinitions.Count
Set CRXSummaryFieldDefinition =
CRXSummaryFieldDefinitions.Item(i)
lstFieldDefinition.AddItem CRXSummaryFieldDefinition.Name
Next i
End Sub
Change the summary field kind.
Private Sub lstFieldDefinition_Click()
Set CRXSummaryFieldDefinition =
CRXSummaryFieldDefinitions.Item(lstFieldDefinition.ListIndex + 1)
With CRXSummaryFieldDefinition
cmbSummaryType.Text = cmbSummaryType.List(.SummaryType)
txtKind = .Kind
txtName = .Name
txtNumberofBytes = .NumberOfBytes
txtValue = OnFormat
txtValueType = .ValueType
End With
End Sub
| Seagate Software IMG Holdings, Inc. http://www.seagatesoftware.com Support services: http://support.seagatesoftware.com |