我觉得这是一个相当实用的Vb数据库技巧，让VB根据字段类型自动格式化DataGrid表格中的数据，数据库连接驱动为：Provider=Microsoft.Jet.OLEDB.4.0 Data Source=db_manpower.mdb Persist Security Info=False。可将所属工资月份，员工编号，员工姓名，基本工资，加班费，工龄工资，奖励总额，职务津贴，旷工费，惩罚总额，养老保险，失业保险，应扣工资等各字段中的数据自动格式化为规定类型，子处理进程代码：

　　Dim fld

　　 For Each fld In Adodc1.Recordset.Fields

　　 如果字段类型为money，则格式化该列

　　 If fld.Type = 6 Then

　　 Set f1 = DataGrid1.Columns(fld.Name).DataFormat

　　 f1.Format = "##,##0.00"

　　 End If

　　 Next

　　End Sub-I think this is a very useful Vb database skills, so VB automatically formatted according to the data field type DataGrid table, database connectivity drivers as: Provider = Microsoft.Jet.OLEDB.4.0　Data Source = db_manpower.mdb　Persist Security Info = False. Month salary can be an employee number, employee name, base salary, overtime, seniority pay, total rewards, duties allowance, absenteeism costs, the total punishment, pension insurance, unemployment insurance, and other fields should be reduced if the data is automatically formats as specified type, the child deal with the process of code:

Dim fld

For Each fld In Adodc1.Recordset.Fields

If field type is money, then format the column

If fld.Type = 6 Then

Set f1 = DataGrid1.Columns (fld.Name). DataFormat

f1.Format = "##,## 0.00"

End If

Next

End Sub