主题：我有一个易表里面的报表表达式，请问有高手帮我改成狐表里报表，表达式吗？谢谢了

Dim C As String = "￥339.12"
C = Format(C*100 ,"0000000")
Dim S As String
For i As Integer = 0 To C.Length-1
      S = S & CUMoney(C.SubString(i,1)).SubString(0,1) & "    "
Next

Output.Show(S)

结果

零    零    叁    叁    玖    壹    贰

代码写在哪里,  这要看你的实际情况. 上面的代码只不过是给你提供一个思路和方法: 通过函数CuMoney可将阿拉伯数字转换为中文货币格式。要解决您的问题,  最好附上您的文件和简明扼要的要求.

附

CUMoney

将阿拉伯数字转换为中文货币格式。

语法

CUMoney(Value)

Value：要转换的阿拉伯数字。

例如：

Dim Currency as String
Currency = CUMoney(12345.12)
Output.Show(Currency)

输出为：壹万贰千叁佰肆拾伍圆壹角贰分