Dim zc As String="Select ....  数量 As 入库_数量,数量 As 入库_单价,数量 As 入库_金额,数量 As 出库_数量,数量 As 出库_单价,数量 As 出库_金额,数量 As 结余_数量,数量 As 结余_单价,数量 As 结余_金额"

zc=zc & " From 出库明细 Where [_Identify] Is Null"

Tables(e.Form.Name & "_table1").fill(zc,数据源名,True)

Dim z() As String={"入库_数量","入库_单价","入库_金额","出库_数量","出库_单价","出库_金额","结余_数量","结余_单价","结余_金额"}

For Each x As String In z

    If x.Contains("单价")=True Then

        DataTables(e.Form.Name & "_table1").dataCols(x).SetFormat("#,##0.00000000")

    Else

        DataTables(e.Form.Name & "_table1").dataCols(x).SetFormat("#,##0.00")

    End If

Next

如上所示对bm1表中的列"入库_单价","出库_单价","结余_单价"设置为八位小数,可是在赋值时虽然显示了八位小数，但实际只显示了前四位小数。什么原因？谢谢