datagrid的问题

obss 2003-09-29 03:53:45
我的表table1,有很多字段,f1,f2,f3,其中f3为币种,存的是1,2,3,代表人民币,美元等,我要在datagrid中显示f1,f2和f3实际代表的值(人民币,美元等),怎么做?
select f1,f2,f3? from table1
...全文
21 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
haipingma 2003-09-29
  • 打赏
  • 举报
回复
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

End Select
End Sub

1,451

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧