请老师帮忙看看我的这段小代码是哪儿的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请老师帮忙看看我的这段小代码是哪儿的问题

共有2059人关注过本帖树形打印复制链接主题：请老师帮忙看看我的这段小代码是哪儿的问题

fntfgz

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

加好友

发短信

等级：一尾狐帖子：424 积分：5115 威望：0 精华：0 注册：2012/11/16 8:21:00

请老师帮忙看看我的这段小代码是哪儿的问题 发帖心情

Post By：2016/6/22 11:31:00 [只看该作者]

图片点击可在新窗口打开查看此主题相关图片如下：2016-06-22_112334.png

以下内容为程序代码:

1 Dim kk() As Integer
2 Dim i As Integer=0
3 For Each dr As Row In Tables("本一文").Rows
4 If (dr("优势位次_加权")) ＞ wcks Then
5 kk(i)=dr("_Sortkey")
6 i=i+1
7 End If
8 Next

我就是想遍历各行，把符合条件的行号记录到数组里面，出了上面的错误，好像是数组赋值出现的问题，请老师看看怎么改一下

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/22 11:34:00 [只看该作者]

Dim kk As new List(Of Integer)

For Each dr As Row In Tables("本一文").Rows
    If (dr("优势位次_加权")) > wcks Then
        kk.add(dr.index+1)
    End If
Next

下一主题 >> << 上一主题

主题：请老师帮忙看看我的这段小代码是哪儿的问题