老师，以下是查询窗口的一个按钮的事件代码，我想对金额列进行格式设定，代码该如何修改（SetFormat("#,###.00")）？
If e.Form.Controls("DateTimePicker1").value = Nothing Then
MessageBox.Show("请先选择要查询的日期 !")
e.Cancel = True
Else
StatusBar.Message1= "正在计算数据,请稍等......"
StatusBar.Refresh() '刷新状态栏
Dim d As Date = e.Form.Controls("DateTimePicker1").value
Dim y As Integer = d.Year
Dim m As Integer = d.Month
Dim Days As Integer = Date.DaysInMonth(y,m)
Dim FD As Date = New Date(y,m,1) '获得该月的第一天
Dim b As New CrossTableBuilder("统计表1",DataTables("保险明细表"))
b.Filter ="[签单日期] >= #" & FD & "# And [签单日期] <= #" & d & "#"
b.HGroups.AddDef("承保公司") '添加客户列用于水平分组
b.VGroups.AddDef("险种名称") '添加产品列用于垂直分组
b.Totals.AddDef("数量") '添加数量列用于统计
b.Totals.AddDef("保费金额") '添加数量列用于统计
b.VerticalTotal= True '垂直汇总
b.HorizontalTotal = True '水平汇总
b.Decimals = 2
b.Build '生成统计表
Tables("查询 日报表_Table4").DataSource = b.builddatasource
Tables("查询 日报表_Table4").AutoSizeCols() '自动设置所有列的宽度
End If
StatusBar.Message1= "就绪"
StatusBar.Message3 = Date.Today & " " & User.Name
StatusBar.Refresh() '刷新状态栏
加好友 
发短信
Post By：2021/8/31 16:17:00 [只看该作者]
