主题：[求助]从Excel读入数据小数点后几位怎么丢失丢了呢？

此主题相关图片如下：qq截图20170516141410.png

编程从Excel文件中读取数据。见图AB两行。B是Excel原始数据，A是读到表中的数据。看一下数量这一列，为什么小数点后几位丢了呢？

初始在设置这表时已经将该表数量这一列设置为6位小数了。读进来就丢了。

Dim zd As New Dictionary(Of String,Integer)

dim s as row

Dim zz() As String={"级码","物料编码","数量"}

DataTables(bm5).DataCols("数量").SetFormat("0.000000")
DataTables(bm5).DataCols("数量小计").SetFormat("0.000000")

      s=Tables(bm5).AddNew
        For Each x As String In zz
            s(x)= Sheet(行数, zd(x)).Value
        Next
        s("项目编号")=xmbh
        s("产品编码")=cpbm
        s("版本")=bben

行数+=1
......

上面是程序主要语句。 帮助看看什么原因？

弹出获取的值是否正确

output.show(Sheet(行数, zd(x)).Text)

output.show(Sheet(行数, zd(x)).Value)

如果获取都不正确了，那你需要用vba获取数据。

此主题相关图片如下：qq截图20170516174625.png

可以从Excel读出小数点后几位，但写入表中就丢失了。

1、你数量列试一下用 双精度或高精度 小数；

2、列属性那里，小数位数，设置成尽量多位 http://www.foxtable.com/webhelp/scr/0050.htm

该表是用fill得到的各字段。其中数量原表就是6位小数点，本应继承下来。

DataTables(bm5).DataCols("数量").Decimals=6
DataTables(bm5).DataCols("数量小计").Decimals=6

找到办法了！谢谢