Xbasic

FIELD.TYPE_GET Function

Syntax

C Type_Get()

Description

The .TYPE_GET() method returns the Field_Type of a field referenced by the object pointer. The result is a character code representing one of the following field types:

Field Type: Type Code
Character: "C"
Numeric: "N"
Date: "D"
Logical: "L"
Memo: "M"
Rich text memo: "RTF"
Bitmap: "B"
OLE: "O"

You can use the .TYPE_GET() method together with the <FIELD>.VALUE_GET() method when obtaining a field value.

Example

This script prints the contents of each record in the Trace window. The data type returned by the .VALUE_GET() method is determined by the field type.

dim tbl as P
dim fld as P
tbl = table.current()
number_of_fields = tbl.fields_get()
tbl.fetch_first()
while .NOT. tbl.fetch_eof()
    for i = 1 TO number_of_fields
        fld = tbl.field_get(i)
        field_type = fld.type_get()
        select
            case field_type = "N"
                trace.writeln( str( fld.value_get() ) )
            case field_type = "D"
                trace.writeln( dtoc( fld.value_get() ) )
            case field_type = "L"
                trace.writeln( iif(fld.value_get(), "T","F") )
          case else
               trace.writeln( fld.value_get() )
        end select
    next i
    trace.writeln("----------------------------")
    tbl.fetch_next()
end while