منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Private Sub DataGridView1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGridView1.MouseUp
If DataGridView1.SelectedRows.Count = 3 Then
Dim r1 As DataGridViewRow = DataGridView1.SelectedRows(2)
TextBox1.Text = r1.Cells(0).Value
TextBox2.Text = r1.Cells(1).Value
TextBox3.Text = r1.Cells(2).Value
TextBox4.Text = r1.Cells(3).Value
TextBox5.Text = r1.Cells(4).Value
Dim r2 As DataGridViewRow = DataGridView1.SelectedRows(1)
TextBox6.Text = r2.Cells(0).Value
TextBox7.Text = r2.Cells(1).Value
TextBox8.Text = r2.Cells(2).Value
TextBox9.Text = r2.Cells(3).Value
TextBox10.Text = r2.Cells(4).Value
Dim r3 As DataGridViewRow = DataGridView1.SelectedRows(0)
TextBox11.Text = r3.Cells(0).Value
TextBox12.Text = r3.Cells(1).Value
TextBox13.Text = r3.Cells(2).Value
TextBox14.Text = r3.Cells(3).Value
TextBox15.Text = r3.Cells(4).Value
End If
End Sub

http://im75.gulfup.com/c3ZIm9.jpg



Private Sub DataGridView1_CurrentCellDirtyStateChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.CurrentCellDirtyStateChanged

DataGridView1.EndEdit()

TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()

TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()

TextBox7.Clear()
TextBox8.Clear()
TextBox9.Clear()

Dim i As New List(Of Integer)

For Each r As DataGridViewRow In DataGridView1.Rows

If r.Cells(0).Value = True Then

i.Add(r.Index)

If i.Count = 3 Then

Dim r1 As DataGridViewRow = DataGridView1.Rows(i(0))
TextBox1.Text = r1.Cells(1).Value
TextBox2.Text = r1.Cells(2).Value
TextBox3.Text = r1.Cells(3).Value

Dim r2 As DataGridViewRow = DataGridView1.Rows(i(1))
TextBox4.Text = r2.Cells(1).Value
TextBox5.Text = r2.Cells(2).Value
TextBox6.Text = r2.Cells(3).Value

Dim r3 As DataGridViewRow = DataGridView1.Rows(i(2))
TextBox7.Text = r3.Cells(1).Value
TextBox8.Text = r3.Cells(2).Value
TextBox9.Text = r3.Cells(3).Value

Exit For

End If

End If

Next

End Sub