Method
Retrieves the size of a specified field.
Category
Fields
Syntax
Function FieldSize(ByVal hTable As Long, ByVal FieldNo As Long) As
Short
hTable
The handle to the table.
FieldNo
The number of the field whose size 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
FieldSize returns the size of the field specified in FieldNo in
bytes. If no field exists with the number specified in FieldNo, the
function will raise an exception.
For more information about the C/SIDE field types and their sizes, see the Application Designer’s Guide.
See also FieldLen.