简单问题，我想将文本框的dataformat改为货币，小数4位怎么写呢？，datagrid中也是一样吗？

Question

文本框的dataformat的属性页里，选择货币型，有小数位数可以选择的。
如果你要弄成固定格式，可以试试maskedit
microsoft masked edit control

Answer 1

有的用就用三。
dim Money as integer
if right(cstr(Money),3)<>"." then msgbox "非货币型"

Answer 2

如果是四位则：
if right(cstr(money),5)<>"." then msgbox "非指定货币型"

Answer 3

Set fmtMyFormat = New StdDataFormat
   fmtMyFormat.Format = "$0.0000"
   Set Text1.DataFormat = fmtMyFormat格式化对象教程
下面的过程简单概述了对附加到 ADO Data 控件上的绑定控件使用格式化对象。该例使用 Visual Basic 附带的 Nwind.mdb 示例数据库。请注意，尽管本例使用的是 ADO Data 控件，但是格式化对象可以与任何数据源一起使用。要使用具有格式化对象的 ADO Data 控件，请按照以下步骤执行： 为 Northwind 数据库创建一个OLEDB 数据源，并命名为 "Northwind"。 
如果还未创建数据源，请按照创建 Northwind OLEDB 数据源中的步骤执行。从“工程”菜单，设置对 Microsoft 数据格式化对象库（Microsoft Data Formatting Object Library）和 Microsoft 数据绑定集合（Microsoft Data Binding Collection）的引用。
在“工程”菜单中单击“部件”选项，并且复选“ADO 数据控件”。
把 ADO Data 控件和三个 TextBox 控件添加到一个窗体中。
按照下表所示设置属性值。 对象 属性 设置值 
ADO 控件 ConnectionString northwind.mdl 
ADO 控件 RecordSource select * from Employees 
Text1 控件 DataSource ADODC1 
Text1 控件 DataField LastName 
Text2 控件 DataSource ADODC1 
Text2 控件 DataField HireDate 
Text3 控件 DataSource ADODC1 
Text3 控件 DataField Extension 
把下面的声明添加到窗体中 
'绑定文本框到 ADO 控件
Dim bc As New BindingCollection'向该对象的 Format 事件添加代码
Dim WithEvents f1 as StdDataFormat
Dim WithEvents f2 As StdDataFormat
用 WithEvents 语句声明 f2 以显露对象的事件。第 9 步显示了当数据在数据库和绑定对象之间来回传递时使用 Format 事件操作数据的代码。把下面的代码添加到该窗体的 Load 事件。 
'连接BindingCollection 对象到数据源
Set bc.DataSource = ADODC1'设置长日期格式字符串
Set f1 = New StdDataFormat
f1.Type = fmtCustom
f1.Format = "long date"
'使用BindingCollection 来绑定第二个文本框。
bc.Add Text2, "text", "hiredate", f1'设置货币格式字符串
Set f2 = New StdDataFormat
f2.Type = fmtCustom
f2.Format = "$0.00"
'使用BindingCollection 来绑定第三个文本框。
Set bc.DataSource = ADODC1.object
bc.Add Text3, "text", "extension", f2
把下面的代码添加到 f2 对象的 Format 事件。 
If DataValue.Value < 3000 Then
Text3.ForeColor = vbRed
Else
Text3.ForeColor = vbBlack
End If运行该工程并且试验该 ADO Data控件。

Answer 4

《VB6 之数据格式化对象使用技巧》http://microinfo.top263.net/Txt/Format.txt