以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何根据字符类型的数据 判断金额是¥还是$  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=86433)

--  作者:clchen
--  发布时间:2016/6/17 11:33:00
--  [求助]如何根据字符类型的数据 判断金额是¥还是$
如何根据字符类型的数据 判断金额是¥还是$
如: ComboBox控件 选择的是人民币  那么text控件 金额 就有¥人民币符号  , 单价:2   数量 2  那么金额就是 ¥4
ComboBox控件 选择的是美元的话  那么text控件 金额 就有$美元符号  , 单价:2   数量 2  那么金额就是 $4



--  作者:大红袍
--  发布时间:2016/6/17 11:44:00
--  

参考代码

 

Dim str As String = "¥4"
Dim s As String = str.SubString(0, 1)
If s = "¥" Then
    msgbox("人民币")
Else If s = "$" Then
    msgbox("美元")
End If
msgbox(str.substring(1))


--  作者:clchen
--  发布时间:2016/6/17 15:26:00
--  
如何使用NumericComboBox 控件计算金额  单价是NumericComboBox 控件 数量也是NumericComboBox 控件 金额是text控件


--  作者:大红袍
--  发布时间:2016/6/17 15:43:00
--  
e.Form.Controls("TextBox1").Text = e.Form.Controls("NumericComboBox1").Text * e.Form.Controls("NumericComboBox2").Text
--  作者:clchen
--  发布时间:2016/6/17 16:30:00
--  
Table1中的数量如何显示千分位??
--  作者:clchen
--  发布时间:2016/6/17 16:57:00
--  
如何在动态table中判断单位,如果单位是人民币金额就是¥2012  如果是美元金额就是$2012
--  作者:大红袍
--  发布时间:2016/6/17 17:41:00
--  
以下是引用clchen在2016/6/17 16:30:00的发言:
Table1中的数量如何显示千分位??

 

参考

 

http://www.foxtable.com/help/topics/1659.htm

 


--  作者:clchen
--  发布时间:2016/6/20 11:09:00
--  
Dim dw As DataRow = Tables("备货计划_Table1").current.DataRow
 
If dw("单位") = "美元" Then
Tables("备货计划_Table1").Cols(bh2).DataCol.SetFormat("$#,0.00")
ElseIf dw("单位") = "人民币" Then
 Tables("备货计划_Table1").Cols(bh2).DataCol.SetFormat("¥#,0.00")
End If

请问 我这里写的有什么问题??为什么显示的是单价是人民币也是$

图片点击可在新窗口打开查看此主题相关图片如下:p6q7_e$$k53uiz1pg@zhu4j.png
图片点击可在新窗口打开查看


--  作者:大红袍
--  发布时间:2016/6/20 11:20:00
--  

 一列的格式,只能有一种,不能两种格式同时显示的啊。

 

 你要改成字符列,才能有不同的显示。


--  作者:大红袍
--  发布时间:2016/6/20 11:22:00
--  

或者你用drawcell事件处理

 

 If e.Col.Name Like "*金额" Then
   
    If e.Row("单位") = "人民币" Then
       
        e.Text = "¥" & e.Text
       
    ElseIf e.Row("单位") = "美元" Then
       
        e.Text = "$" & e.Text
       
    End If
   
End If

[此贴子已经被作者于2016/6/20 11:25:51编辑过]