方法1:把此列,改成高精度小数
方法2:要写代码处理一下
Dim r As RowFor i As Integer = 0 To Tables("订单").Rows.Count(True) - 1 r = Tables("订单").Rows(i,True) If r.IsGroup r("定额") = Format(r("定额"), "0.00") End IfNext