Dim Currency as StringCurrency = CUMoney(12345.12)Output.Show(StrToTraditional(Currency))
表属性 编缉AfterEdit设置:
If e.Col.Name = "第一列" Then e.Row("第一列") =CUMoney( e.Row("第一列")) End If