如何根据币种字段，动态显示金额的币种符号 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何根据币种字段，动态显示金额的币种符号

共有3834人关注过本帖树形打印复制链接主题：如何根据币种字段，动态显示金额的币种符号

tubairabbit

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：70 积分：971 威望：0 精华：0 注册：2014/2/18 14:27:00

如何根据币种字段，动态显示金额的币种符号 发帖心情

Post By：2014/3/31 15:44:00 [只看该作者]

如何根据币种字段，动态显示金额的币种符号

币种合同金额外币费用人民币费用

USD $1000 $100 ￥200

EUR €1000 €100 ￥200

人民币费用好设，直接属性里设置货币符号￥就好

合同金额，外币费用怎么设呢，币种datacolchanged要用哪个函数？

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/3/31 15:50:00 [只看该作者]

在DrawCell事件,输入如下代码

if e.col.name="合同金额" orlese e.col.name="外币费用" then

select case e.row("币种")

case "USD"

e.row(e.col.name)="$" & e.row(e.col.name)

case "EUR"

e.row(e.col.name)="€" & e.row(e.col.name)

case "CNY"

e.row(e.col.name)="￥" & e.row(e.col.name)

end select

end if

if e.col.name="人民币费用" then

e.row(e.col.name)="￥" & e.row(e.col.name)

end if

tubairabbit

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：70 积分：971 威望：0 精华：0 注册：2014/2/18 14:27:00

Post By：2014/3/31 17:00:00 [只看该作者]

谢谢！您的代码更清晰。

自己结合属性货币设置也做了个。

1.“合同金额”“外币费用”设置属性，默认货币符号$

2.DrawCell事件代码

Select Case e.Col.Name
Case "合同金额","外币费用"
    If e.Row("币种") = "EUR" AndAlso e.Text > "" Then
        e.Text = e.Text.Replace("$","€")
    End If
End Select

Bin

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/3/31 17:01:00 [只看该作者]

OH 对的. 应该用 E.TEXT 我失误了,汗,今天老是失误. 烦心事多.

下一主题 >> << 上一主题

主题：如何根据币种字段，动态显示金额的币种符号