标题：BS右对齐

1楼

lihe60 发表于：2024/5/8 8:00:00

'根据此页数据生成网页

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

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

end if

End With

如何设置金额右对齐

此主题相关图片如下：无标题.png

2楼

有点蓝 发表于：2024/5/8 8:35:00

.AddCell(Format(r("金额"), "#0.00"),"style='text-align: right;'")

3楼

lihe60 发表于：2024/5/8 10:41:00

金额为零的不显示，怎么设置
图片点击可在新窗口打开查看

此主题相关图片如下：无标题.png

4楼

有点蓝 发表于：2024/5/8 10:54:00

.AddCell(IIF(r("金额")=0,,"",Format(r("金额"), "#0.00")))

5楼

lihe60 发表于：2024/5/8 11:29:00

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

此主题相关图片如下：无标题.png

6楼

有点蓝 发表于：2024/5/8 11:33:00

多练练基本功

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

7楼

lihe60 发表于：2024/5/8 11:54:00

按6楼的代码改了，但0还在，不显示为空

8楼

有点蓝 发表于：2024/5/8 11:57:00

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

共8 条记录, 每页显示 10 条, 页签: [1]