ACCESS 代码讲解

你这应该是复制了代码的一部分，就只对你复制上来的说一下吧。

Dim CW, ZS, kcg, qr As Boolean  

 Do While rec1.EOF = False         循环，直到rec1的记录尾

 If rec1("财务否") = True Then   如果"财务否"这个字段打钩 或 =-1 或为真时      CW = 1
    CW = 1
 Else                                        否则     CW = 0
    CW = 0
 End If

下面的道理同上

 If rec1("终审") = True Then
    ZS = 1
 Else
    ZS = 0
 End If
 If rec1("可采购否") = True Then
    kcg = 1
 Else
    kcg = 0
 End If