我测试没有问题，请上传实例说明。注意先设置位数，再合计
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("产品", Gettype(String), 32)
dtb.AddDef("客户", Gettype(String), 32)
dtb.AddDef("数量", Gettype(Integer))
dtb.AddDef("金额", Gettype(Double))
Dim t As Table = e.Form.Controls("Table1").Table
t.datasource = dtb.BuildDataSource()
Dim dt As DataTable = t.DataTable
For i As Integer = 1 To 5
Dim dr As DataRow = dt.addnew
dr("金额") = i * 10.12
Next
dt.DataCols("金额").Decimals = 3
dt.DataCols("金额").SetFormat("0.000")
t.Cols("金额").GrandTotal = True
t.GrandTotal = True '显示合计模式
加好友 
发短信
Post By：2021/1/21 13:40:00 [显示全部帖子]
