主题：[求助]如何根据字符类型的数据 判断金额是￥还是$

参考代码

 

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))

e.Form.Controls("TextBox1").Text = e.Form.Controls("NumericComboBox1").Text * e.Form.Controls("NumericComboBox2").Text

 

参考

 

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

 

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

 

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

或者你用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

drawcell事件

 

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