这个正是你找了很久的小数位长度。

你的代码，用OLE方式，把Access作为一个对象打开，这个思路也是可以的。
但是，我试过，当打开一个比较大的mdb 时，机器的反应时间比较长，因为我们只是获取他的结构信息，而OLE方式，要把整个数据库都打开，这样运行的效率方面会差一些。

不过，只要你数据库不大，或者对效率方面不是很迫切，只要能够达到目的，也是可行的。

[此贴子已经被作者于2016-11-18 15:14编辑过]

但是Properties('DecimalPlaces')这个DecimalPlaces对象显示不存在，用其他也没有成功。

不是不存在，而在只在某些字段类型中，获取该值才有意义，其它类型的列，试图获取fld.ProPerties("DecimalPlaces").values 就会报错，
为此，你有语句已经作了限制，但是限制得不准确。试着改为：

if inlist(lnFieldType,7,5,6,20)
  lnValue = oo.Currentdb.TableDefs(i).Fields(x).Properties('DecimalPlaces').Value
  replace 小数位 with icase(lnValue = 255,'自动',Alltrim(str(lnValue)))
endif

你再试试？应该可以了。

可以了，多谢指点。