我上面給你的提示足夠了，怎麽實現是你的事。

VFP的小數位數最多是18位。

對表字段，如果是Double型的，就比較麻煩了，它實際儲存的值未必與? 字段名顯示出來的結果相符。

0位不是长度吗？

以前收集的，记不清是那个帖子里的了，可以解决楼主的问题：
Afields(laFlds, '表名')  
? laFlds[Ascan(laFlds, '字段名', -1, -1, 1, 1+2+4+8), 3] &&字段长度
? laFlds[Ascan(laFlds, '字段名', -1, -1, 1, 1+2+4+8), 4] &&小数位数

的却解决了问题，谢谢。我想，原帖作者应该是个学究。

AFIELDS(ArrayName [, nWorkArea | cTableAlias])

参数
ArrayName

指定数组名，将表结构信息存放在这个数组中。如果 AFIELDS( ) 函数指定的数组不存在，Visual FoxPro 将自动创建此数组。如果数组存在，但大小不足以包含 AFIELDS( ) 函数返回的所有信息，Visual FoxPro 将自动增加数组大小，使数组能容纳所有信息。

nWorkArea

指定表所在的工作区，在这个工作区中打开的表的结构信息要存放到数组中。

cTableAlias

指定表的别名。此表的结构信息要存放到数组中。
如果省略参数 nWorkArea 和 cTableAlias，将把当前选定工作区中的表结构信息存入数组中。
下表描述了数组中每列的内容和每列信息的数据类型，每行对应表的一个字段。

列号 字段信息 数据类型
1 字段名 字符型
2 字段类型:
C = 字符型
D = 日期型
L = 逻辑型
M = 备注型
N = 数值型
F = 浮点型
I = 整型
B = 双精度型
Y = 货币型
T = 日期时间型
G = 通用型 字符型
3 字段宽度 数值型
4 小数位 数值型
5 允许 Null 值 逻辑型
6 不允许代码页转换 逻辑型
7 字段有效性表达式 字符型
8 字段有效性文本 字符型
9 字段默认值 字符型
10 表有效性表达式 字符型
11 表有效性文本 字符型
12 长表名 字符型
13 插入触发器表达式 字符型
14 更新触发器表达式 字符型
15 删除触发器表达式 字符型
16 表注释 字符型
4为小数
例如 表='test'
afields(aFName,'test')
for i=1 to alen(aFName,1)
aFname[i,4]为小数位
endfor