以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  BS右对齐  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=191754)

--  作者:lihe60
--  发布时间:2024/5/8 8:00:00
--  BS右对齐
    \'根据此页数据生成网页
    With wb.AddTable("", "Table1")
        .PageNumber = page \'设置页码
        .ActiveSheet = "menu"
        if e.cookies("terminal")="电脑"
            Dim nms() As String = {"NO.", "合同编号","合同名称", "单位名称", "合同金额","结算金额"}
            .Head.AddRow(nms)
            For Each r As DataRow In dt.DataRows 
                With .Body.AddRow(r("NO."),r("合同编号"),r("合同名称"), r("单位名称"))
                    .AddCell(Format(r("合同金额"), "#,000.00"))
                    .AddCell(Format(r("结算金额"), "#,000.00"))
                    .Primarykey = r("合同序号") \'设置主键
                End With
            Next
        end if
        if e.cookies("terminal")="手机"
            Dim nms() As String = {"NO.", "发生日期", "合同编号", "数量", "金额"}
            .Head.AddRow(nms)
            For Each r As DataRow In dt.DataRows 
                With .Body.AddRow(r("NO."),Format(r("发生日期"),"yyyy-MM-dd"), r("合同编号"), r("数量"))
                    .AddCell(Format(r("金额"), "#0.00"))
                    .Primarykey = r("合同序号") \'设置主键
                End With
            Next
        end if
    End With

如何设置金额右对齐
图片点击可在新窗口打开查看此主题相关图片如下:无标题.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2024/5/8 8:35:00
--  
.AddCell(Format(r("金额"), "#0.00"),"style=\'text-align: right;\'")
--  作者:lihe60
--  发布时间:2024/5/8 10:41:00
--  
金额为零的不显示,怎么设置
图片点击可在新窗口打开查看此主题相关图片如下:无标题.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2024/5/8 10:54:00
--  
.AddCell(IIF(r("金额")=0,,"",Format(r("金额"), "#0.00")))
--  作者:lihe60
--  发布时间:2024/5/8 11:29:00
--  
                    .AddCell(iif(r("结算金额")=0,"",Format(r("合同金额"), "#,000.00"),"style=\'text-align: right;\'"))


图片点击可在新窗口打开查看此主题相关图片如下:无标题.png
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2024/5/8 11:33:00
--  
多练练基本功

.AddCell(iif(r("结算金额")=0,"",Format(r("合同金额"), "#,000.00")),"style=\'text-align: right;\'")

--  作者:lihe60
--  发布时间:2024/5/8 11:54:00
--  
按6楼的代码改了,但0还在,不显示为空
--  作者:有点蓝
--  发布时间:2024/5/8 11:57:00
--  
.AddCell(iif(r.isnull("结算金额") orelse r("结算金额")=0,"",Format(r("合同金额"), "#,000.00")),"style=\'text-align: right;\'")