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

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

没效果

半路出家，在学。

以为可以直接用数组

Dim c As Integer= Tables("活动.报名表").Rows.count  '将行数赋值给c
Dim ids As String

If c > 0 Then  '如果Tables("活动.报名表")行数>0
    For Each r As Row In   Tables("活动.报名表").Rows   '遍历 Tables("活动.报名表")
       ids = ids & "," & r("id")
    Next
       ids = ids.trim(",")
    Tables("人员").Filter=" [_Identify] not In (" & ids & ")"
Else
    Tables("人员").Filter=""
End If

 

 

这样还是不行，求详解。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:xlhw.zip

帮我看看吧，头晕了。

多谢 多谢，请多多赐教。