以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  请帮看下这段代码有什么问题？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=183941)

--  作者：wcs --  发布时间：2022/11/19 22:40:00 --  请帮看下这段代码有什么问题？ 下面的代码，为了将表B中的数值列，以12,345.67这样的形式显示，但一直没有效果，不知何故？ Dim c1 As Integer Dim r1 As Integer For c1 = 0 To Tables("表B").cols.Count - 1 \'如是数值则显示千分位符     For r1 = 0 To Tables("表B").rows.Count - 1         If Tables("表B").Cols(c1).IsNumeric Then             Format(Tables("表B")(r1, c1), "#,000.00")         End If      Next  Next

--  作者：洮沙 --  发布时间：2022/11/20 14:40:00 --   测试，DrawCell中加入以下代码，执行正常。不知能否达到要求？ If e.Col.IsNumeric Then     If e.Row(e.Col.Name) > 0 Then         e.text = Format(e.Row(e.Col.Name), "#,##0.00")     End If  End If

--  作者：有点蓝 --  发布时间：2022/11/20 20:12:00 --   到列属性里设置：http://www.foxtable.com/webhelp/topics/0050.htm

--  作者：wcs --  发布时间：2022/11/27 13:10:00 --   不能用代码设置吗？这个的会计必用的！而报表格式常变，用代码解决要好一些的。

--  作者：有点蓝 --  发布时间：2022/11/27 20:18:00 --   参考：http://www.foxtable.com/webhelp/topics/1659.htm