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» в каждую ячейку столбца «range»
любое предложение.
Спасибо.
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
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
пока это работает. спасибо