چگونگی انتخاب ردیف گرید ویو با استفاده از حلقه for

[mialdf]

سلام دوستان
چگونه میتونم با استفاده از حلقه for به ترتیب بتونم به همه ی ردیف های گرید ویو دسترسی داشته باشم؟

کدی که خودم نوشتم اینه که میدونم 100% غلطه



dim a as integer
For a = 0 To ForoshDataGridView.RowCount
' اینجا چه کدی باید قرار بدم تا در دفعه به رکرورد بعدی در گرید ویو بره؟'
i = i + 1
Next

[Saman_12]

این کد برای خوندن تک تک سلول های دیتا گرید هستش :


Dim Row, Col As Integer
Dim StringData As String
For Col = 0 To DataGridView1.RowCount - 1
For Row = 0 To DataGridView1.ColumnCount - 1
StringData = DataGridView1.Item(Col, Row).Value
Next Row
Next Col

[mialdf]

این کد برای خوندن تک تک سلول های دیتا گرید هستش :


Dim Row, Col As Integer
Dim StringData As String
For Col = 0 To DataGridView1.RowCount - 1
For Row = 0 To DataGridView1.ColumnCount - 1
StringData = DataGridView1.Item(Col, Row).Value
Next Row
Next Col


دوست عزیز دستت درد نکنه

فقط یه مشکل دیگه ای دارم
اینه که من میخوام ردیف به ردیف گرید ویو را پیمایش کنم و هر ردیف رو در جدولم ذخیره کنم.
راستش نمیدونم چی کار کنم

[Saman_12]

با این کد ایندکس ردیف هایی که کل داده هاشون خونده شده میتونی گیر بیاری(هر دفعه توی متغییر I ذخیره میشه) :


Dim Row, Col, i As Integer
Dim StringData As String
i = -1
For Col = 0 To DataGridView1.RowCount - 1
For Row = 0 To DataGridView1.ColumnCount - 1
If DataGridView1.Item(Col, Row).Value <> Nothing Then
StringData = DataGridView1.Item(Col, Row).Value
If Col = DataGridView1.ColumnCount - 1 Then
i += +1
End If
End If
Next Row
Next Col

[mialdf]

دوستان من این کد رو برای ثبت اطلاعات از گرید ویو به جدول نوشتم ولی به جای اطلاعات اطلی فقط عدد 0 ثبت میشه
میشه بفرمایید مشکل کارم کجاست؟



Dim Row As Integer
For Row = 0 To ForoshDataGridView.RowCount - 2
Dim naka1, coka1, fefo1 As String
coka1 = Me.ForoshDataGridView.Rows(Me.ForoshDataGridView.C urrentCellAddress.Y).Cells(0).Value
naka1 = Me.ForoshDataGridView.Rows(Me.ForoshDataGridView.C urrentCellAddress.Y).Cells(1).Value
fefo1 = Me.ForoshDataGridView.Rows(Me.ForoshDataGridView.C urrentCellAddress.Y).Cells(3).Value
ForoshTableAdapter.InsertQuery(naka1, coka1, fefo1)
Next Row

[vbworm]

Dim Row As Integer
Dim naka1, coka1, fefo1 As String
For Row = 0 To ForoshDataGridView.RowCount - 1
coka1 = ForoshDataGridView.Rows(row).Cells(0).Value
naka1 = ForoshDataGridView.Rows(row).Cells(1).Value
fefo1 = ForoshDataGridView.Rows(row).Cells(3).Value
ForoshTableAdapter.InsertQuery(naka1, coka1, fefo1)
Next Row