منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كيف الحصول على قيمة الخلية بعد تحديد الصف في datagridview؟

بارك الله فيكم أعذروني على الإطالة، إذا كان لدي 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

عبد الخالق

hazim1