MS Access VBA 将小数添加到输出

Question

我的数据有 2 个小数位（见图），我正在使用该函数减去两个值，但我得到一个四舍五入的数字作为我的输出。我试图将浮点数添加到以下表达式“(L.M123_Corr_Integrator-R.M123_Corr_Integrator)”，但它抛出了一个错误。我不熟悉 sql/vba 代码，所以任何有用的信息都会有所帮助。

sql = "UPDATE (SELECT R.DateLog , ( L.M123_Corr_Integrator - R.M123_Corr_Integrator) AS Gross " & _ "FROM tbl_M123_DataSet AS L INNER JOIN tbl_M123_DataSet AS R " & _ "ON L.DateLog = DATEADD('d', 1, R.DateLog)) as T " & _ "INNER JOIN tbl_M123_DataSet ON tbl_M123_DataSet.DateLog = T.DateLog " & _ "Set Gross_kWh = Gross" dbs.Execute sql, dbFailOnError MsgBox dbs.RecordsAffected & " rows affected on column GrossKW"

未混淆的查询如下所示：

UPDATE
   (
      SELECT
         R.DateLog,
         L.M123_Corr_Integrator - R.M123_Corr_Integrator AS Gross
      FROM
         tbl_M123_DataSet AS L
         INNER JOIN tbl_M123_DataSet AS R
            ON L.DateLog = DATEADD('d', 1, R.DateLog)
   ) AS T
   INNER JOIN tbl_M123_DataSet
      ON tbl_M123_DataSet.DateLog = T.DateLog
SET Gross_kWh = Gross

Answer 1

在我看来，您已将 table 字段 Gross_kWh 设置为整数。在 table 设计视图中，突出显示 Gross_kWh 行并将其数字类型设置为 'Double'。

另请注意，Access 有时会四舍五入显示数字，但小数的精确数字已正确存储在 table 中。

MS Access VBA 将小数添加到输出

MS Access VBA Add Decimals to Output

sql

ms-access

vba

ms-access-2010