Method
Retrieves the name of a specified field.
Category
Fields
Syntax
Function FieldName(ByVal hTable As Long, ByVal FieldNo As Long) As
String
hTable
The handle to the table.
FieldNo
The number of the field whose name will 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
FieldName returns the name of the field identified by FieldNo. This
function cannot be used to change the name of the field. Field
names are assigned in C/SIDE.
If FieldNo does not exist, the function will raise an exception.
For more information about fields, see the Application Designer’s Guide.