[ali_ahmed12]

(08-11-22, 11:50 PM)odai كتب :

(08-11-22, 11:47 PM)ali_ahmed12 كتب :

(08-11-22, 11:44 PM)odai كتب :

(08-11-22, 11:37 PM)ali_ahmed12 كتب :

(08-11-22, 11:23 PM)odai كتب : DataGridView1.ReadOnly = False
DataGridView1.Columns(0).ReadOnly = False
For i = 1 To DataGridView1.Columns.Count - 1
   DataGridView1.Columns(i).ReadOnly = True
Next

اريد كود هدا ينفد فقط عندما اضغط علي عمود زر فقط وهو في عمود 1 في قريد فيو 
في اي حدث اضعه 

كود :

  If DataGridView1.Columns(1).Name = "btn" Then
           Dim dr As DataGridViewRow = DataGridView1.SelectedRows(0)
           labell.Text = dr.Cells(3).Value
           label_product.Text = dr.Cells(4).Value
           UNIT.Text = dr.Cells(5).Value
           DateTimePicker1.Text = dr.Cells(6).Value
           Qty.Text = dr.Cells(7).Value
           TKLFA.Text = dr.Cells(8).Value
           Price.Text = dr.Cells(9).Value
       End If

Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
   If e.ColumnIndex = 1 Then
       If DataGridView1.Columns(1).Name = "btn" Then
           Dim dr As DataGridViewRow = DataGridView1.SelectedRows(0)
           labell.Text = dr.Cells(3).Value
           label_product.Text = dr.Cells(4).Value
           UNIT.Text = dr.Cells(5).Value
           DateTimePicker1.Text = dr.Cells(6).Value
           Qty.Text = dr.Cells(7).Value
           TKLFA.Text = dr.Cells(8).Value
           Price.Text = dr.Cells(9).Value
       End If
   End If
End Sub

القصد عندما اضغط علي زر في حدث cellclik في خليه كنت بامكاني عدم فعل زر من اول انا اقصد عندما اضغط علي زر فقط 
وتوجد مشكله اخر وهيا يمكنني تعديل خانات قريد فيو ماالحل

Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
   If e.ColumnIndex = 1 Then
       Dim dr As DataGridViewRow = DataGridView1.Rows(e.RowIndex)
       labell.Text = dr.Cells(3).Value
       label_product.Text = dr.Cells(4).Value
       UNIT.Text = dr.Cells(5).Value
       DateTimePicker1.Text = dr.Cells(6).Value
       Qty.Text = dr.Cells(7).Value
       TKLFA.Text = dr.Cells(8).Value
       Price.Text = dr.Cells(9).Value
   End If
End Sub

يمكنني تعديل في خانات قريد كيف امنع دلك