专家坐堂-[求助]请教手机端表格中的数值问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]请教手机端表格中的数值问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=104800)

--  作者：linswcfr
--  发布时间：2017/8/5 11:57:00
--  [求助]请教手机端表格中的数值问题

如何时使数值为0的单元格为nothing

此主题相关图片如下：微信图片_20170805115459.jpg

--  作者：有点蓝
--  发布时间：2017/8/5 12:19:00
--
手动设置表格，判断为0设置为空值

http://www.foxtable.com/mobilehelp/scr/0072.htm

--  作者：linswcfr
--  发布时间：2017/8/5 14:15:00
--

看了帮助，还是不明白，要怎么判断？

With wb.AddTable("","Table1")
    Dim nms() As String = Vars("sc").Split(",")
    For Each dr As DataRow In DataTables("表A").Select("",",金额 desc")
        With .Body.AddRow()
            .AddCell(dr(nms(1)))
            .AddCell(dr(nms(2))) \'第二个参数用于设置单元格的Attribute属性
            .AddCell(dr(nms(3)))
            .AddCell(dr(nms(4)))
            .AddCell(Format(dr(nms(5)),"#,##0.00"))
            .AddCell(Format(dr(nms(6)),"#,##0.00"))
            .AddCell(Format(dr(nms(7)),"#,##0.00"))
            .AddCell(Format(dr(nms(8)),"P"))
            .AddCell(Format(dr(nms(9)),"#,##0.00"))
            .AddCell(Format(dr(nms(10)),"P"))
            .AddCell(Format(dr(nms(11)),"#,##0.00"))
            .AddCell(Format(dr(nms(12)),"P"))
            .AddCell(Format(dr(nms(13)),"#,##0.00"))
            .AddCell(Format(dr(nms(14)),"P"))
            .AddCell(Format(dr(nms(15)),"#,##0.00"))
            .AddCell(Format(dr(nms(16)),"P"))
            .AddCell(Format(dr(nms(17)),"#,##0.00"))
            .AddCell(Format(dr(nms(18)),"P"))
            .AddCell(Format(dr(nms(19)),"#,##0.00"))
            .AddCell(dr(nms(20)))
            .AddCell(dr(nms(21)))
        End With
    Next
End With

--  作者：linswcfr
--  发布时间：2017/8/5 14:16:00
--
在With .Body.AddRow()之前判断好像没用，之后不知道怎么搞
[此贴子已经被作者于2017/8/5 14:16:09编辑过]

--  作者：有点蓝
--  发布时间：2017/8/5 14:46:00
--
比如
.AddCell(IIF(dr(nms(5)) > 0 ,Format(dr(nms(5)),"#,##0.00"),"")
.AddCell(IIF(dr(nms(6)) > 0 ,Format(dr(nms(6)),"#,##0.00"),"")

--  作者：linswcfr
--  发布时间：2017/8/5 15:00:00
--

谢谢，这个情况解决了

另一情况，生成的数据变成可以链接？

像这样

此主题相关图片如下：微信图片_20170805145943.jpg

--  作者：有点蓝
--  发布时间：2017/8/5 15:27:00
--
直接设置链接

.AddCell("<A href=\'http://www.foxtable.com/\'>" & dr(nms(4)) & "</A>")

--  作者：linswcfr
--  发布时间：2017/8/5 17:09:00
--

不链接啊

--  作者：linswcfr
--  发布时间：2017/8/5 17:10:00
--
不要链接

--  作者：有点蓝
--  发布时间：2017/8/5 17:22:00
--
弹出提示框？

.AddCell( dr(nms(4))).Attribute = """