isdigit( ) 函数示例

close databases
open database (home( ) + 'samples\data\testdata')
use orders  && 打开 orders 表
clear 
display cust_id
? isdigit(cust_id)  && 显示 .f.
display order_dsc
? isdigit(alltrim(str(order_dsc)))  && 显示 .t.