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”插入“范围”
的每个列单元格中任何建议。
感谢。
答案 0 :(得分: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
答案 1 :(得分: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
现在这个有效。 感谢