1
 For j = 0 To wcData.Tables(0).Rows.Count - 1
  For i = 900 To 1700
    wcData.Tables("db").Rows(j)("range") = i
   Next
 Next

试图将“i”插入“范围”的每个列单元格

任何建议。

谢谢。

4

2 回答 2

2
Dim rowOffset As Integer = 900;

For j = 0 To wcData.Tables(0).Rows.Count - 1 
    wcData.Tables("db").Rows(j).Item("range") =  rowOffset + j
Next
于 2010-07-20T14:54:16.367 回答
0
 Dim rowOffset As Integer = 900

  For j = 0 To wcData.Tables(0).Rows.Count - 1
   wcData.Tables("ratingout").Rows(j).Item("range") = rowOffset + j
   If i >= 1700 Then
    Exit For
   End If
 Next

这暂时有效。谢谢

于 2010-07-20T16:19:57.243 回答