主题：窗口代码没有效果，是什么错误？

在窗口的DataColChanging中设置如下代码，为什么没有效果呢？

If e.DataCol.Name = "本月发生额" Or "本年累计"
    e.DataRow("本月发生额") = Format(e.DataRow("本月发生额"),"###,###.00")
    e.DataRow("本年累计") = Format(e.DataRow("本年累计"),"###,###.00")
End If

谢谢狐爸，用这段代码，解决问题了。

还想再问一下，如果在专业报表中，怎样实现这个效果。

我是用以下代码绑定数据的：

rt.RowGroups(3,1).DataBinding.DataSource = BindTables("分乡按科目查询_Table1") '将第3行绑定到订单表

想设置后两列为这种格式，该如何操作呀？

这个可以操作吗？