主题：[求助]这代码对吗？

Dim c As Integer= Tables("活动.报名表").Rows.count     '将行数赋值给c
Dim i() As Integer                                                    '定义一个数组i
Dim x As Integer = 0
If c > 0 Then                                                          '如果Tables("活动.报名表")行数>0
    For Each r As Row In   Tables("活动.报名表")         '遍历 Tables("活动.报名表")
        i(x)=  r("id")                                                  '把已报名人员的id赋值给数值i
        x = x+1
    Next
    Tables("人员").Filter=" [_Identify] not In (i) "         '过滤掉已报名人员
Else
    Tables("人员").Filter=""
End If

 

此主题相关图片如下：qq截图20140102181314.jpg