如下一段程序，是想把所有数值字段的数据清零。

    Set myDb = OpenDatabase("data.mdb")

    '定义当前表、记录集
    Set myTb = myDb.TableDefs(CpName)
    Set myRs = myDb.OpenRecordset(CpName)

    myRs.MoveFirst
    Do While myRs.EOF = False
        For hh = 0 To myTb.Fields.Count - 1
            If myTb.Fields(hh).Type = 3 Then
                myRs.Fields(hh) = 0                      ' 这里是错误的，应该怎么写。
            End If
        Next
    Loop

请高手指点一下。
注：我不想用 SQL 语句。

[此贴子已经被作者于2005-5-1 17:45:48编辑过]

Set myRs.Fields(hh)=0试试