想通过筛选后的子窗体，然后一次性审核筛选出来的数据，但是会报错。请大高手帮看...

Henry D. Sy

1. Private Sub Frame6_AfterUpdate()
   
2.     Dim B As Boolean
   
3.     Select Case Me.Frame6.Value
   
4.         Case 1
   
5.             B = True
   
6.         Case 2
   
7.             B = False
   
8.     End Select
   
9.     CurrentDb.Execute "Update 待审核表 Set 审核=" & B
   
10.     Me.child1.Form.Requery
    
11. End Sub

复制代码