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

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

1楼

jdtn 发表于：2009/4/27 18:12:00

万位，
If(MidNum([金额合计],4) = "￥","零",CUNum(MidNum([金额合计],4))) 大写
仟位
If(MidNum([金额合计],3) = "￥","零",CUNum(MidNum([金额合计],3))) 大写
佰位
If(MidNum([金额合计],2) = "￥","零",CUNum(MidNum([金额合计],2))) 大写
十位
If(MidNum([金额合计],1) = "￥","零",CUNum(MidNum([金额合计],1))) 大写
元位
If(MidNum([金额合计],0) = "￥","零",CUNum(MidNum([金额合计],0))) 大写
角位
If(MidNum([金额合计],-1) = "￥","零",CUNum(MidNum([金额合计],-1))) 大写
分位
If(MidNum([金额合计],-2) = "￥","零",CUNum(MidNum([金额合计],-2))) 大写
提取（金额合计）列的数值

上面表达式是用在piao据打印的，因为piao据上面格式为___万__仟__佰__元__角__分
我想用在Excel报表里面

[此贴子已经被作者于2009-4-27 18:44:09编辑过]

2楼

mr725 发表于：2009/4/27 18:26:00

用 Length 试试

3楼

菜鸟foxtable 发表于：2009/4/27 19:21:00

dim m as double = 12345.67
dim r as string = format(m,"0.00")
dim i As integer = r.Length-3
r = GetDigit(r,i)
Output.Show(r & m)

这个是在任意数字前加￥的代码,你可以试试更改...

[此贴子已经被作者于2009-4-27 21:53:12编辑过]

4楼

ybtxdz 发表于：2009/4/27 20:12:00

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)

结果

零零叁叁玖壹贰

5楼

jdtn 发表于：2009/4/27 23:01:00

请问有没有直接在EXCEL报表里的表达式？

6楼

jdtn 发表于：2009/4/27 23:02:00

谢谢楼上二位老师的指导。但是我还没有会用。

7楼

yangming 发表于：2009/4/27 23:05:00

你说的在EXCEL报表中的表达式,是什么意思？

[此贴子已经被作者于2009-4-27 23:05:07编辑过]

8楼

jdtn 发表于：2009/4/27 23:18:00

比如说

{Year(date)}

表示年，如果我在打印fa piao时，能不能根据[合计金额]列的数值在fa piao上打印出来的字符正好在各个位置，结果如下[合计金额]数值335.16 fa piao打印结果：零（万）零（仟）叁（佰）叁（拾）伍（元）壹（角）陆（分）括号内的万仟佰拾元角为fa piao印刷格式。不用打印。

9楼

yangming 发表于：2009/4/27 23:58:00

你说的是套打支piao吗,那你直接在EXCEL中做个模板,然后在狐表中打印这个模板不可以吗?我觉得这样应该更方便些

10楼

jdtn 发表于：2009/4/28 0:06:00

我现在就是在EXCEL模板中表达式不知道怎么写？请问能不能帮我写一下谢谢了

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