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 に答える