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

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

 

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

是窗口的Table控件中的。

是在哪里，是表事件吗？你的TABLE是什么类型的

首先应该是：

If e.DataCol.Name = "本月发生额" Or e.DataCol.Name = "本年累计" Then

   ...
End If

 

其实你这个代码没有意义的，你要设置显示格式的话，应该通过菜单的列属性设置。

或者用代码：

http://www.foxtable.com/help/topics/1659.htm

 

是窗口里的Table的表事件，类型是SQLQuery类型的。

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

 

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

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

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

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

这个可以操作吗？

专业报表最还是不要用绑定，直接用代码遍历，更加灵活方便。