主题：[建议]人民币大写的问题

可以自己加上：

Dim Currency as String
Currency = CUMoney(12345.50) & "整"
Output.Show(Currency)

有人需要，有人不需要，去掉比加上更费事，现在这样更好

不明白你的意思：

Dim Currency as String
Currency = CUMoney(12345.50) & "整"
Output.Show(Currency)

这个代码是通用，不存在打一张换一种格式的问题。
除了编码的时候多写了几个字符，其余和易表并没有别的差别

你原来的是这样的：
rx.Text = CurRow("大写金额")

如果现在不要大写金额这一列，只有实际的金额这一列，只需改为：

rx.Text = CUMoney(CurRow("金额")) & "整"

这样比专门则增加一个大写金额列，要好得多。

如果我举个例子：

Dim d As integer
d = Year($"1971-9-17")
Output.show(d)

难不成报表中需要打印年份的时候，需要每一行单独编码去提取年份？

那说说明，整数自动加"整"了
所以直接这样就行：
rx.Text = CUMoney(CurRow("金额"))

有角分的本来就不应该有“整”字的。

如果一定要：

rx.Text = CUMoney(CurRow("金额"))
If rx.Text.EndsWith("整") = False Then
    rx.Text = rx.Text & "整"
End If