- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- BS右对齐 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=191754)
-- 发布时间：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
此主题相关图片如下：无标题.png-- 发布时间：2024/5/8 8:35:00
--
.AddCell(Format(r("金额"), "#0.00"),"style=\'text-align: right;\'")
-- 发布时间：2024/5/8 10:41:00
--
金额为零的不显示，怎么设置
此主题相关图片如下：无标题.png
-- 发布时间：2024/5/8 10:54:00
--
.AddCell(IIF(r("金额")=0,,"",Format(r("金额"), "#0.00")))
-- 发布时间：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;\'")
-- 发布时间：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;\'")