[hazim1]

بارك الله فيكم أعذروني على الإطالة، إذا كان لدي datagridview تتكون من 100 صف أو أكثر، والمطلوب إظهار قيمة خلية في الصف المحدد في الصندوق النصي الأول، وإظهار قيمة خلية في الصف التالي للصف المُحدد الأول في الصندوق النصي التاني، وإظهار قيمة خلية في الصف الثالث للصف المحدد الأول في الصندوق النصي الثالث، بمعنى لو حددت الصف العاشر يأتي بقيمة الخلايا في الصفوف التالية.

للأسف هناك Error رغم المحاولات

كود :

Dim I As Integer = 0
Dim code1 As String = DataGridView1.SelectedRows(I).Cells(1).Value.ToString
TextBox1.Text = code1

Dim code2 As String = DataGridView1.SelectedRows(I + 1).Cells(1).Value.ToString
TextBox2.Text = code2

Dim code3 As String = DataGridView1.SelectedRows(I + 2).Cells(1).Value.ToString
TextBox3.Text = code3

[عبد الخالق]

(31-07-23, 01:14 PM)hazim1 كتب : بارك الله فيكم أعذروني على الإطالة، إذا كان لدي datagridview تتكون من 100 صف أو أكثر، والمطلوب إظهار قيمة خلية في الصف المحدد في الصندوق النصي الأول، وإظهار قيمة خلية في الصف التالي للصف المُحدد الأول في الصندوق النصي التاني، وإظهار قيمة خلية في الصف الثالث للصف المحدد الأول في الصندوق النصي الثالث، بمعنى لو حددت الصف العاشر يأتي بقيمة الخلايا في الصفوف التالية.

للأسف هناك Error رغم المحاولات

كود :

Dim I As Integer = 0
Dim code1 As String = DataGridView1.SelectedRows(I).Cells(1).Value.ToString
TextBox1.Text = code1

Dim code2 As String = DataGridView1.SelectedRows(I + 1).Cells(1).Value.ToString
TextBox2.Text = code2

Dim code3 As String = DataGridView1.SelectedRows(I + 2).Cells(1).Value.ToString
TextBox3.Text = code3

ما هو الخطا؟

ما تقصد بالصف المحدد؟

الكود السابق يعمل اذا جعلت جميع الاسطر المحدده التي تريد القراءه منها باللون الازرق

لكن اذا تقصد (بالسطر المحدد) اي السطر الذي تقف عليه بدون تحديد الاسطر التاليه باللون الازرق يكون

كود :

Dim I As Integer = DataGridView1.CurrentRow.Index
Dim code1 As String = DataGridView1.Rows(I).Cells(1).Value.ToString
TextBox1.Text = code1

Dim code2 As String = DataGridView1.Rows(I + 1).Cells(1).Value.ToString
TextBox2.Text = code2

Dim code3 As String = DataGridView1.Rows(I + 2).Cells(1).Value.ToString
TextBox3.Text = code3

[hazim1]

جزاك الله خيراً أخي الكريم عبدالخالق وبارك في عمرك، الكود أصبح يعمل بشكل ممتاز.