以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  单元格格式  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=55866)
--  作者：Jaolovedg
--  发布时间：2014/8/25 13:59:00
--  单元格格式

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

 

使表的某一列的单元格格式以分数形式显示，函数具体怎么写，写在哪里？
--  作者：有点甜
--  发布时间：2014/8/25 14:01:00
--  

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

 
--  作者：Jaolovedg
--  发布时间：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’ 怎么不以分数的形式显示？
 

--  作者：有点甜
--  发布时间：2014/8/25 15:41:00
--  
 汗...数值列，是不能用分数形式显示的，你要显示分数，就只能用字符列。你在使用列数据的时候，再处理成数值。
--  作者：Jaolovedg
--  发布时间：2014/8/25 15:46:00
--  回复：（有点甜） 汗...数值列，是不能用分数形式...
这张表就是从数据库中得到的，‘列3’ 就是字符列啊
--  作者：有点甜
--  发布时间：2014/8/25 15:48:00
--  
以下是引用Jaolovedg在2014-8-25 15:46:00的发言：
这张表就是从数据库中得到的，‘列3’ 就是字符列啊

 

如果列3是字符列，那么赋值就应该这样写

 

dr("列3") = dr("列1") &  "/" & dr("列2")
--  作者：Jaolovedg
--  发布时间：2014/8/25 15:51:00
--  回复：（有点甜）以下是引用Jaolovedg在2014-8-25 15:...

受教了，谢谢。