Method
Retrieves the C/SIDE type of a specified field.
Category
Fields
Syntax
Function FieldType(ByVal hTable As Long, ByVal FieldNo As Long) As
Short
hTable
The handle to the table.
FieldNo
The number of the field whose type is to be retrieved.
Example
'Case "FieldInfo"
'Lists the information about the fields in the customer-table
tmpLong = CF1.NextField(hTable, 0)
Do While tmpLong <> 0
tmpBool = False
tmpStr = Str$(CF1.FieldLen(hTable, tmpLong)) & ", "
tmpVar = CF1.FieldName(hTable, tmpLong)
If VarType(tmpVar) = vbString Then
tmpStr = tmpStr & tmpVar & ", "
tmpVar2 = CF1.FieldNo(hTable, tmpVar)
If VarType(tmpVar2) = vbLong Then
tmpStr = tmpStr & tmpVar2 & ", "
tmpVar2 = CF1.FieldType(hTable, tmpLong)
If VarType(tmpVar2) = vbInteger Then
tmpStr = tmpStr & tmpVar2 & ", "
tmpVar2 = CF1.FieldSize(hTable, tmpLong)
If VarType(tmpVar2) = vbInteger Then
tmpStr = tmpStr & tmpVar2 & ", "
tmpVar2 = CF1.FieldClass(hTable, tmpLong)
If VarType(tmpVar2) = vbInteger Then
tmpStr = tmpStr & tmpVar2 & ", "
tmpVar2 = CF1.FieldOptionStr(hTable, tmpLong)
If VarType(tmpVar2) = vbString Then
tmpStr = tmpStr & tmpVar2
tmpLong = CF1.NextField(hTable, tmpLong)
tmpBool = True
End If
End If
End If
End If
End If
End If
If Not (tmpBool) Then
Exit Do
End If
Loop
If tmpBool Then
tmpStr = "Fieldinfo from the last field: " & tmpStr
logWr tmpStr
Else
logWr "Error in a return value"
End If
CF1.CloseTable hTable
Comments
FieldType returns the type of the field specified in FieldNo. If no
field exists with the number specified in FieldNo, the function
will raise an exception.
The type is returned as a number:
|
Number: |
Field Type: |
|
0 |
Text |
|
1 |
Date |
|
2 |
Time |
|
3 |
Boolean |
|
4 |
Integer |
|
5 |
Code |
|
6 |
Option |
|
7 |
Decimal |
|
8 |
BLOB |
|
9 |
Dateformula |
|
10 |
BigInteger |
|
11 |
Duration |
|
12 |
DateTime |
|
13 |
GUID |
For more information about the C/SIDE data types, see the Application Designer’s Guide.