请帮看下这段代码有什么问题？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请帮看下这段代码有什么问题？

共有5561人关注过本帖树形打印复制链接主题：请帮看下这段代码有什么问题？

wcs

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：五尾狐帖子：1039 积分：7450 威望：0 精华：0 注册：2008/8/31 22:52:00

请帮看下这段代码有什么问题？ 发帖心情

Post By：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

wcs

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：五尾狐帖子：1039 积分：7450 威望：0 精华：0 注册：2008/8/31 22:52:00

Post By：2022/11/27 13:10:00 [显示全部帖子]

不能用代码设置吗？这个的会计必用的！而报表格式常变，用代码解决要好一些的。

主题：请帮看下这段代码有什么问题？