Dim WithEvents format1 As StdDataFormat
form_load 中
Set format1 = New StdDataFormat
Set DataGrid1.Columns(2).dataFormat = format1
Private 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 Select
End Sub
Private 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