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

نسخة كاملة : اختيار من داتا جرد
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
عند الضغط على الداتا جريد كيف اظهر بيانات الصف الذى تم الضغط عليه يظهر فى مربعات النص وجعل الداتا ست تقف عند هذا السجل
السلام عليكم ورحمة الله

لنفترض أنك أسميت الـDataGrid بـ dgv_Customers

في حدث النقر المزدوج على هذا الـDataGrid، اكتب:
كود :
If dgv_Customers.CurrentRow.Cells(0).Value <> Nothing Then
            txtCustomerID.Text = Val(dgv_Customers.CurrentRow.Cells(0).Value)
            txtCustomerName.Text = dgv_Customers.CurrentRow.Cells(1).Value
            txtCustomerAddress.Text = dgv_Customers.CurrentRow.Cells(3).Value
else
msgbox("row is empty")
End If
مع مراعاة اسماء صناديق النصوص في برنامجك Smile
جزاك الله خيراً على حسن الرد
جارى التجربة
يعطيك العافية
تم التجربة ونجح معى
طيب. الحمد لله.
السلام عليكم
يمكنك تجربة هذا الكود
هو يقوم ب اخذ IDtb من DGView ويقارنو من الجدول وتتم العمليه اذا كانت عملة تعديل او حذف
If Me.DGView.Rows.Count > 0 Then
If Me.DGView.SelectedRows.Count > 0 Then
Dim intStdID As Integer = Me.DGView.SelectedRows(0).Cells("IDtb").Value

If Not conn.State = ConnectionState.Open Then
conn.Open()
End If


Dim cmd As New OleDb.OleDbCommand
cmd.Connection = conn
cmd.CommandText = "DELETE FROM table1 WHERE IDtb=" & intStdID


If cmd.ExecuteNonQuery() Then
MsgBox("تمت إضافة عملية المسح بنجاح", MsgBoxStyle.Information)
Me.RefreshData()

End If


conn.Close()
End If
End If