VFP 导入Excel 格式问题 导过来后 数字变成 .0000000 怎么处理

[無法替代]

lcPath = GETFILE("xls,xlsx","","确定",0,"打开Excel")

IF EMPTY(lcPath)
	RETURN
ENDIF

CREATE CURSOR q_gridExcel(Name C(40),sex C(20),age C(20))

loExcel = CREATEOBJECT("Excel.application")	&&创建Excel对象
loExcel.Workbooks.Open(lcPath)	&&打开指定工作簿
loExcel.Worksheets("sheet1").Activate	&&激活工作表
arrTableInfo=loExcel.ActiveSheet.UsedRange.Value &&将当前工作表中的已用区域（只读）存入数组。
loExcel.Quit	&&退出Excel
Release loExcel	&&只有释放对象变量, EXCEL进程才会完全关闭
Insert Into q_gridExcel FROM ARRAY arrTableInfo &&从数组导入临时表

[kangss]

看这应该是字符型字段，转成数字保留小数点位数，再更新到表里面。

[sharamjam]

CREATE CURSOR q_gridExcel(Name C(40),sex C(20),age C(20)) 问题出在上面这句定义临时表字段的数据类型上 改成 CREATE CURSOR q_gridExcel(Name C(40),sex C(2),age N(2)) 或者 CREATE CURSOR q_gridExcel(Name C(40),sex C(2),age C(2))

[lygcw9602]

CREATE CURSOR q_gridExcel(Name C(40),sex C(20),age I)

[myperry]

1、修改你的DBF表的字段类型，把小数位设为你需要的长度。
2、也可以从DBF表中，再导入另一个你设好的DBF表中。

[grz001]

alltrim(str(excel_value,100,2)) &&根据情况取小数位

[IF先生]

如果都是字符型的话，可以在导入后再用Scan去扫数据库,识别到有点的自动截取。

scan
  if "."$Name=.T.
     repl Name wiht allt(getwordnum(Name,1,"."))
  endif
  if "."$Sex=.T.
     repl Sex wiht allt(getwordnum(Sex,1,"."))
  endif
  if "."$Age=.T.
     repl Age wiht allt(getwordnum(Age,1,"."))
  endif
endscan

[無法替代]

引用 6 楼 IF先生 的回复:

如果都是字符型的话，可以在导入后再用Scan去扫数据库,识别到有点的自动截取。

scan
  if "."$Name=.T.
     repl Name wiht allt(getwordnum(Name,1,"."))
  endif
  if "."$Sex=.T.
     repl Sex wiht allt(getwordnum(Sex,1,"."))
  endif
  if "."$Age=.T.
     repl Age wiht allt(getwordnum(Age,1,"."))
  endif
endscan

也只能这样了

[wwle]

transf(int(val())) 这样最省事。 我也经常碰到这种情况，前提是你知道导的是什么，所以可以直接截取。