| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2592 人关注过本帖
标题:[求助]怎样在MSFlexGrid和MSHFlexGrid中,将货币值格式化为“¥0.00”呢?
只看楼主 加入收藏
lhf391855540
Rank: 1
等 级:新手上路
帖 子:175
专家分:0
注 册:2006-10-14
结帖率:0
收藏
 问题点数:0 回复次数:14 
[求助]怎样在MSFlexGrid和MSHFlexGrid中,将货币值格式化为“¥0.00”呢?

对于在Access中已经格式化的货币值,比如¥28.00,在MSFlexGrid和MSHFlexGrid中,输出的都是28,怎样在MSFlexGrid和MSHFlexGrid中,将货币值格式化为“¥0.00”呢?

搜索更多相关主题的帖子: 货币 MSFlexGrid MSHFlexGrid 格式 
2007-03-30 17:44
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
MsHFlexgrid1.TextMatrix(1,2)="¥" & rs.Fields("money").value

动动脑吧.

我的msn: myfend@
2007-03-30 17:46
lhf391855540
Rank: 1
等 级:新手上路
帖 子:175
专家分:0
注 册:2006-10-14
收藏
得分:0 
谢谢
2007-03-30 17:50
lhf391855540
Rank: 1
等 级:新手上路
帖 子:175
专家分:0
注 册:2006-10-14
收藏
得分:0 

问题解决,下面的代码片段供初学者参考,可能会为没有尝试过这种方法的朋友节约一点思考的时间。
Dim i As Integer
Dim n As Integer
For i = 1 To Adodc1.Recordset.RecordCount
For n = 2 To 5
MSHFlexGrid1.TextMatrix(i, n) = Format(MSHFlexGrid1.TextMatrix(i, n), "¥0.00")
Next n
Next i
只需修改参数i和n,即可适用于任何行、列或单元格。

2007-03-31 11:13
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
解决就好了.

我的msn: myfend@
2007-03-31 11:16
ioriliao
Rank: 7Rank: 7Rank: 7
来 自:广东
等 级:贵宾
威 望:32
帖 子:2829
专家分:647
注 册:2006-11-30
收藏
得分:0 
妈的..MsHFlexgrid1鸟麻烦!

/images/2011/147787/2011051411021524.jpg" border="0" />
2007-03-31 16:19
风月_无边
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:60
帖 子:2960
专家分:652
注 册:2007-1-19
收藏
得分:0 
Format(123.456,“###.000”);格式化!

我的网站 http://www.
2007-03-31 16:46
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 

一般吧.


我的msn: myfend@
2007-03-31 16:56
lhf391855540
Rank: 1
等 级:新手上路
帖 子:175
专家分:0
注 册:2006-10-14
收藏
得分:0 

如果要顺便给MSHFlexGrid加上行号,只需在上面的代码中加一行代码:
MSHFlexGrid1.TextMatrix(i, 0) = i

这样就成了:

Dim i As Integer
Dim n As Integer
For i = 1 To Adodc1.Recordset.RecordCount
For n = 2 To 5
MSHFlexGrid1.TextMatrix(i, n) = Format(MSHFlexGrid1.TextMatrix(i, n), "¥0.00")
MSHFlexGrid1.TextMatrix(i, 0) = i
Next n
Next i

2007-03-31 17:38
lhf391855540
Rank: 1
等 级:新手上路
帖 子:175
专家分:0
注 册:2006-10-14
收藏
得分:0 
加一行代码后,看起来顺眼多了
2007-03-31 17:39
快速回复:[求助]怎样在MSFlexGrid和MSHFlexGrid中,将货币值格式化为“¥0.00” ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.025084 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved