快来看看！

deng2003

Set tres = CurrentDb().OpenRecordset("select * from depot where docnumber='" & Me!DOCNUMBER & "'", dbReadOnly)
        Set rst = CurrentDb().OpenRecordset("select * from basectrl ", dbReadOnly)
        If tres.EOF And tres.BOF Then
            Exit Sub
        End If
        If rst.EOF And rst.BOF Then
            Exit Sub
        End If           
        Do While Not tres.EOF
            typestr = tres!Type
            typestr1 = rst!Type

我想把查询的结果相等请帮帮忙

lijiawy

不明白