- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请老师帮忙看看我的这段小代码是哪儿的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86634)
-- 发布时间：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
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
我就是想遍历各行，把符合条件的行号记录到数组里面，出了上面的错误，好像是数组赋值出现的问题，请老师看看怎么改一下
-- 发布时间：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