[求助]这代码对吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]这代码对吗？

共有3724人关注过本帖树形打印复制链接主题：[求助]这代码对吗？

shenhq

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：194 积分：1580 威望：0 精华：0 注册：2013/12/8 22:48:00

[求助]这代码对吗？ 发帖心情

Post By：2014/1/3 17:08:00 [只看该作者]

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

shenhq

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：194 积分：1580 威望：0 精华：0 注册：2013/12/8 22:48:00

Post By：2014/1/3 17:09:00 [只看该作者]

没效果

狐狸爸爸

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2014/1/3 17:16:00 [只看该作者]

呵呵，你从哪里学的这样的代码，看看帮助是怎么写的：

http://www.foxtable.com/help/topics/2410.htm

http://www.foxtable.com/help/topics/2228.htm

Bin

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/1/3 17:20:00 [只看该作者]

不是这样做的哟,参考一下这里http://www.foxtable.com/help/topics/2228.htm

shenhq

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：194 积分：1580 威望：0 精华：0 注册：2013/12/8 22:48:00

Post By：2014/1/3 17:30:00 [只看该作者]

半路出家，在学。

以为可以直接用数组

shenhq

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：194 积分：1580 威望：0 精华：0 注册：2013/12/8 22:48:00

Post By：2014/1/3 17:52:00 [只看该作者]

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

这样还是不行，求详解。