datagrid的问题

Question

我的表table1，有很多字段,f1,f2,f3,其中f3为币种，存的是1,2,3，代表人民币，美元等，我要在datagrid中显示f1,f2和f3实际代表的值(人民币，美元等)，怎么做？
select f1,f2,f3? from table1

Answer 1

Dim WithEvents format1 As StdDataFormat
form_load 中
        Set format1 = New StdDataFormat
        Set DataGrid1.Columns(2).dataFormat = format1Private Sub format1_Format(ByVal DataValue As StdFormat.StdDataValue)
    Select Case DataValue.Value
            Case 1
                 DataValue.Value = "RMB"
            Case 2
                 DataValue.Value = "USD"
            Case 3
                 DataValue.Value = "..."
            ...
    End SelectEnd SubPrivate Sub format1_UnFormat(ByVal DataValue As StdFormat.StdDataValue)
    Select Case DataValue.Value
            Case "RMB"
                 DataValue.Value = 1
            Case "USD"
                 DataValue.Value =2
            Case "..."
                 DataValue.Value = 3
            
    End Select
End Sub