请老师帮忙看看我的这段小代码是哪儿的问题 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
加好友 
发短信
Post By：2016/6/22 11:31:00 [只看该作者]
此主题相关图片如下：2016-06-22_112334.png