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

谢谢

问题解决，下面的代码片段供初学者参考，可能会为没有尝试过这种方法的朋友节约一点思考的时间。
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，即可适用于任何行、列或单元格。

如果要顺便给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

加一行代码后，看起来顺眼多了

虽然非常简单，也容易被忽视，但很实用。

可不可以开发一个比MSFlexGrid和MSHFlexGrid更高级的控件，可以直接在属性设置中设置数据的显示格式呢？比如直接设置是否显示行号或列号、某行或某列的小数位数、数字的显示格式、或者日期的显示格式等。如果能实现这些功能，那在程序开发中将会少写很多代码。
期待这样的控件早日出现！

[QUOTE][/QUOTE]
不一定能搜到有用的结果