Dim g As New CrossTableBuilder("统计表1", DataTables("收益")) g.HGroups.AddDef("项目编号") g.VGroups.AddDef("确认时间") g.Totals.AddDef("分期金额", "分期金额") g.HorizontalTotal = True g.VerticalTotal = True g.Decimals = 2 g.Build() Dim t As Table = Tables("统计表1")
For Each c As Col In t.Cols If c.IsNumeric Then c.Width = 50 c.DataCol.SetFormat("#,###.00") End If Next