Evaluates an expression which has an integer result.
Visual Basic |
---|
Public Function EvaluateInt( _ ByVal objectType As Integer, _ ByVal nObject As Long, _ ByVal formula As String _ ) As Long |
SIS_OT_COMMAND
|
Changes the properties/mode of the current command. |
SIS_OT_CURITEM | The current open Item. |
SIS_OT_DEFITEM
|
The default Item. |
SIS_OT_DATASET
|
Datasets. |
SIS_OT_OVERLAY
|
Overlays. |
SIS_OT_WINDOW
|
The window. |
SIS_OT_NOL
|
Named Object Libraries. |
SIS_OT_FTABLE
|
The current Feature Table. |
SIS_OT_SCHEMA
|
The current Schema. |
SIS_OT_SCHEMACOLUMN
|
A column in the current Schema. |
SIS_OT_THEME
|
The current Theme. |
SIS_OT_THEMECOMPONENT
|
A component in the current Theme. |
SIS_OT_PRINTER
|
Printer. |
SIS_OT_SYSTEM
|
System variables. |
SIS_OT_OPTION
|
System wide Boolean options. |
The evaluated integer value of the given expression.
The following expression function enables you to find out what data type an attribute is.
VarType(...)
Which returns an enumeration, e.g. VarType(‘my_date@’) returns 7.
Use it as part of Sis.EvaluateInt (for $&# datatypes) and Sis.Evaluate (for @ datatypes).
The following formula translates these numbers into descriptive types:
Choose(VarType('attr@'),'Null','Short','Long (&)','Float','Double(#)','Currency','Date','String($)','','','Boolean','','','Decimal','Byte'.'Unsigned Byte','Unsigned Short','Unsigned Long','Long Long Integer','Unsigned Long Long')
Substitute attr@ for your attribute name (including the $&#@ suffix).
VarType({...}) will also work with any lambda expression inside the {}.
For example:
VarType({DATE@})
The returned value will determine the data type for the queried column:
vbEmpty | 0 | Empty (uninitialized) |
vbNull | 1 | Null (no valid data) |
vbInteger | 2 | Integer |
vbLong | 3 | Long Integer |
vbSingle | 4 | Single |
vbDouble | 5 | Double |
vbCurrency | 6 | Currency value |
vbDate | 7 | Date value |
vbString | 8 | String |
vbObject | 9 | Object |
vbError | 10 | Error value |
vbBoolean | 11 | Boolean value (Zero and Non-zero) |
vbVariant | 12 | Variant (Array only) |
vbDataObject | 13 | A data access object |
vbByte | 17 | Byte |
vbUserDefinedType | 36 | Variants that contain user-defined types |
Available: GEO MM ME MD OD OM OV SISpy
Group:
sis.EvaluateInt ( SIS_OT_CURITEM , 0, "ItemID&" )
Send comments on this topic.
Click to return to www.cadcorp.com
© Copyright 2000-2017 Computer Aided Development Corporation Limited (Cadcorp).