以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何根据币种字段，动态显示金额的币种符号  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=48543)
--  作者：tubairabbit
--  发布时间：2014/3/31 15:44:00
--  如何根据币种字段，动态显示金额的币种符号

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

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

USD   $1000   $100     ￥200

EUR   �1000    �100     ￥200

 

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

合同金额，外币费用怎么设呢，币种datacolchanged要用哪个函数？
--  作者：Bin
--  发布时间：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
--  发布时间：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
--  发布时间：2014/3/31 17:01:00
--  
OH 对的.  应该用 E.TEXT  我失误了,汗,今天老是失误.  烦心事多.