swallow.pa
جمعه 18 فروردین 1391, 19:14 عصر
سلام به همه
من توی برنامه این کد رو دارم
With bsPerson
.MoveNext()
ProgressBarX1.Maximum = .Count
For I = 1 To .Count
Me.Text = .Current.Item("Id")
.MoveNext()
ProgressBarX1.Value = I
bsPerson.Position = I - 1
Next I
End With
مشکل اینه که چون تعداد رکوردها زیادن توی خط bsPerson.Position = I - 1 در پایان دیتاگرید به آخر خط می آد
حالا چه کار کنم که با رفتن به رکورد بعد دیتاگرید هم یک یک جلو بیاد
ممنون
من توی برنامه این کد رو دارم
With bsPerson
.MoveNext()
ProgressBarX1.Maximum = .Count
For I = 1 To .Count
Me.Text = .Current.Item("Id")
.MoveNext()
ProgressBarX1.Value = I
bsPerson.Position = I - 1
Next I
End With
مشکل اینه که چون تعداد رکوردها زیادن توی خط bsPerson.Position = I - 1 در پایان دیتاگرید به آخر خط می آد
حالا چه کار کنم که با رفتن به رکورد بعد دیتاگرید هم یک یک جلو بیاد
ممنون