[ali_ahmed12]

السلام عليكم ورحمة الله وبركاته 
لدي شاشة منتجات موجود اما الوحدة كوبوبوكس عندما اضغط علي زر امامه بالازرق يفتح نافده اضافة وحدة 
اريد عندما اضغط علي زر عرض يظهر اسم الوحده من قريد فيو في تكست بوكس 
موضح صورة ماذا اقصد

كود :

Private Sub DataGridView1_RowsAdded(sender As Object, e As DataGridViewRowsAddedEventArgs) Handles DataGridView1.RowsAdded
       For I As Integer = 0 To DataGridView1.Rows.Count - 1
           DataGridView1.Rows(I).Cells(0).Value = "ادراج"
           Dim ROW As DataGridViewRow = DataGridView1.Rows(I)

       Next
       For I As Integer = 0 To DataGridView1.Rows.Count - 1
           DataGridView1.Rows(I).Cells(2).Value = "عرض"
           Dim ROW As DataGridViewRow = DataGridView1.Rows(I)

       Next
   End Sub

   Private Sub DataGridView1_Click(sender As Object, e As EventArgs) Handles DataGridView1.Click
       If DataGridView1(1, DataGridView1.CurrentRow.Index).Selected = True Then
           SHOW_DETA(DataGridView1.CurrentRow.Cells(0).Value)
       End If
   End Sub

[ali_ahmed12]

(01-11-22, 07:25 PM)ali_ahmed12 كتب : السلام عليكم ورحمة الله وبركاته 
لدي شاشة منتجات موجود اما الوحدة كوبوبوكس عندما اضغط علي زر امامه بالازرق يفتح نافده اضافة وحدة 
اريد عندما اضغط علي زر عرض يظهر اسم الوحده من قريد فيو في تكست بوكس 
موضح صورة ماذا اقصد

كود :

Private Sub DataGridView1_RowsAdded(sender As Object, e As DataGridViewRowsAddedEventArgs) Handles DataGridView1.RowsAdded
       For I As Integer = 0 To DataGridView1.Rows.Count - 1
           DataGridView1.Rows(I).Cells(0).Value = "ادراج"
           Dim ROW As DataGridViewRow = DataGridView1.Rows(I)

       Next
       For I As Integer = 0 To DataGridView1.Rows.Count - 1
           DataGridView1.Rows(I).Cells(2).Value = "عرض"
           Dim ROW As DataGridViewRow = DataGridView1.Rows(I)

       Next
   End Sub

   Private Sub DataGridView1_Click(sender As Object, e As EventArgs) Handles DataGridView1.Click
       If DataGridView1(1, DataGridView1.CurrentRow.Index).Selected = True Then
           SHOW_DETA(DataGridView1.CurrentRow.Cells(0).Value)
       End If
   End Sub

هل من رد ؟

[ali_ahmed12]

(02-11-22, 10:48 PM)ali_ahmed12 كتب :

(01-11-22, 07:25 PM)ali_ahmed12 كتب : السلام عليكم ورحمة الله وبركاته 
لدي شاشة منتجات موجود اما الوحدة كوبوبوكس عندما اضغط علي زر امامه بالازرق يفتح نافده اضافة وحدة 
اريد عندما اضغط علي زر عرض يظهر اسم الوحده من قريد فيو في تكست بوكس 
موضح صورة ماذا اقصد

كود :

Private Sub DataGridView1_RowsAdded(sender As Object, e As DataGridViewRowsAddedEventArgs) Handles DataGridView1.RowsAdded
       For I As Integer = 0 To DataGridView1.Rows.Count - 1
           DataGridView1.Rows(I).Cells(0).Value = "ادراج"
           Dim ROW As DataGridViewRow = DataGridView1.Rows(I)

       Next
       For I As Integer = 0 To DataGridView1.Rows.Count - 1
           DataGridView1.Rows(I).Cells(2).Value = "عرض"
           Dim ROW As DataGridViewRow = DataGridView1.Rows(I)

       Next
   End Sub

   Private Sub DataGridView1_Click(sender As Object, e As EventArgs) Handles DataGridView1.Click
       If DataGridView1(1, DataGridView1.CurrentRow.Index).Selected = True Then
           SHOW_DETA(DataGridView1.CurrentRow.Cells(0).Value)
       End If
   End Sub

هل من رد ؟

هل من رد