The AddItem method adds a new member object to a collection and returns a reference to the new object. The class of the new object depends on the collection; for example, calling the AddItem method of the Fields collection returns a new Field object.

Syntax

AddItem(ItemName as String) as Object

Parameters
ItemName
The name to assign to the new item.

Return Value
A reference to the newly created object.

Example
This example, which could be used as the code for the DataEngine.GetCustomMetaData for a project, adds a new calculated field to the Fields collection.

Visual FoxPro

lparameters toApplication as SQApplication
local loField as Field
loField = toApplication.DataEngine.Fields.AddItem('DETAILS.TOTAL_PRICE')
loField.Type = 'Y'
loField.Caption = 'Total Price'
loField.Format = '$'
loField.Picture = '999,999.99'
loField.SQExpression = .F.
loField.Expression = 'DETAILS.UNIT_PRICE * DETAILS.QUANTITY'

VBScript

function Main(Application)
dim Field
set Field = Application.DataEngine.Fields.AddItem("DETAILS.TOTAL_PRICE")
Field.Type = "Y"
Field.Caption = "Total Price"
Field.Format = "$"
Field.Picture = "999,999.99"
Field.SQExpression = False
Field.Expression = "DETAILS.UNIT_PRICE * DETAILS.QUANTITY"
end function

JavaScript

function Main(Application) {
var Field ;
Field = Application.DataEngine.Fields.AddItem('DETAILS.TOTAL_PRICE') ;
Field.Type = 'Y' ;
Field.Caption = 'Total Price' ;
Field.Format = '$' ;
Field.Picture = '999,999.99' ;
Field.SQExpression = false ;
Field.Expression = 'DETAILS.UNIT_PRICE * DETAILS.QUANTITY' ;
}

C#

public static bool DataEngine_GetCustomMetaData(SFQApplication sfqApplication)
{	
  Field field = sfqApplication.DataEngine.Field.AddItem("DETAILS.TOTAL_PRICE");
  field.Type = "Y";
  field.Caption = "Total Price";
  field.Format = "$";
  field.Picture = "999,999.99";
  field.SQExpression = .F.;
  field.Expression = "DETAILS.UNIT_PRICE * DETAILS.QUANTITY";
}

VB.NET

public shared function DataEngine_GetCustomMetaData(sfqApplication as SFQApplication) _
    as Boolean
  Field field = sfqApplication.DataEngine.Field.AddItem("DETAILS.TOTAL_PRICE")
  field.Type = "Y"
  field.Caption = "Total Price"
  field.Format = "$"
  field.Picture = "999,999.99"
  field.SQExpression = .F.
  field.Expression = "DETAILS.UNIT_PRICE * DETAILS.QUANTITY"
  Return True
End Function

See also

Collections

© Stonefield Software Inc., 2023 • Updated: 06/06/16
Comment or report problem with topic