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

انا عندي الكود دة لنقل البيانات من الداتا جريد للتيكست بوكس
For Each RW As DataGridViewRow In DataGridView1.SelectedRows
TextBox10.Text =
RW.Cells(1).Value
Next
اريد نقل البيانات بشر ط من اي صف مختار بالداتا جريد
شكل البيانات
يوم-2005-سنة
اسبوع-xt2006-يوم
اسبوع-ct2006-يوم
ان يتم نقل الي التيكست
مبين --
ليصبح التيكست بة 2005
بنفس الطريقة
واقتصاص ما في النص x,c علي امتدلد كل البيانات التي يبدا بها الحرفين
علي اساس مسح ماقبل -
لتصبح اسبوع-xt2006

في الحدث CellClick يكتب الكود التالي

Dim i As Integer
On Error Resume Next
i = DataGridViewRow.CurrentRow.Index
Text1.Text = dgv.Item(0, i).Value
Text2.Text = dgv.Item(1, i).Value
Text3.Text = dgv.Item(2, i).Value
Text4.Text = dgv.Item(3, i).Value
عند الضغط على الجريد فيو يتم تفريغ الحقول داخل تكست بوكس وهكذا