以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口代码没有效果，是什么错误？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=32532)
--  作者：lyzhuo
--  发布时间：2013/5/3 17:19:00
--  窗口代码没有效果，是什么错误？

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

 

If e.DataCol.Name = "本月发生额" Or "本年累计"
    e.DataRow("本月发生额") = Format(e.DataRow("本月发生额"),"###,###.00")
    e.DataRow("本年累计") = Format(e.DataRow("本年累计"),"###,###.00")
End If
--  作者：lyzhuo
--  发布时间：2013/5/3 17:23:00
--  
是窗口的Table控件中的。
--  作者：XYT
--  发布时间：2013/5/3 17:26:00
--  

是在哪里，是表事件吗？你的TABLE是什么类型的
--  作者：狐狸爸爸
--  发布时间：2013/5/3 17:33:00
--  

首先应该是：

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

   ...
End If

 

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

或者用代码：

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

 
--  作者：lyzhuo
--  发布时间：2013/5/3 17:34:00
--  
是窗口里的Table的表事件，类型是SQLQuery类型的。
--  作者：lyzhuo
--  发布时间：2013/5/3 17:43:00
--  

或者用代码：

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

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

 

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

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

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

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

[此贴子已经被作者于2013-5-3 17:56:16编辑过]
--  作者：lyzhuo
--  发布时间：2013/5/6 10:28:00
--  

这个可以操作吗？
--  作者：狐狸爸爸
--  发布时间：2013/5/6 11:18:00
--  
专业报表最还是不要用绑定，直接用代码遍历，更加灵活方便。