单元格格式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 单元格格式

共有3241人关注过本帖树形打印复制链接主题：单元格格式

Jaolovedg

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

加好友

发短信

等级：婴狐帖子：14 积分：181 威望：0 精华：0 注册：2014/7/3 16:14:00

单元格格式

Post By：2014/8/25 13:59:00 [只看该作者]

dr("table").Range("F1").NumberFormat = "# ?/?"

使表的某一列的单元格格式以分数形式显示，函数具体怎么写，写在哪里？

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/25 14:01:00 [只看该作者]

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

Jaolovedg

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

加好友

发短信

等级：婴狐帖子：14 积分：181 威望：0 精华：0 注册：2014/7/3 16:14:00

Post By：2014/8/25 15:37:00 [只看该作者]

谢谢，这样写怎么没效果呢？

Dim dr As DataRow = e.DataRow

Select Case e.DataCol.Name
    Case "列1","列2"
        If dr.IsNull("列1") OrElse dr.IsNull("列2") Then '如果版位或拼数为空
            dr("列3") = Nothing
        Else

                           dr("列3") = dr("列1") / dr("列2")
                                DataTables("表名").DataCols("列3").SetFormat("# ?/?")
                              MainTable = Tables("表名")

End If
End Select

这样写 ‘列3’ 怎么不以分数的形式显示？