Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
lcName = Field(1)
lcType = Type(lcName)
lnWidth = FSize(lcName)
?lcName
?lcType
?lnWidth
myFieldName="num_field"
USE myTable
DIMENSION myArray[1]
=AFIELDS("myArray","myTable")
* NOTE: ASCAN() parm 1 expects actual array name
* either with or without quotes
* otherwise use eval("arrayNameHolder")
IF " 06." $ VERSION())
* VFP 6
lcExact=SET("EXACT")
SET EXACT ON
ASCAN(myArray,UPPER(myField))
* lnDecimals = myArray[INT(ASCAN(myArray,UPPER(myFieldName))/ALEN("myArray",2))+1,4]
lnDecimals = myArray[ASUBSCRIPT("myArray",ASCAN(myArray,UPPER(myFieldName)),1),4]
SET EXACT &lcExact
ELSE
* VFP 7+
lnDecimals = myArray[ASCAN(myArray,myvar,1,-1,4,15),4]
ENDIF
? lnDecimals