+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : اختيار من داتا جرد (/showthread.php?tid=2351)
اختيار من داتا جرد - الجندى - 24-03-14
السلام عليكم
عند الضغط على الداتا جريد كيف اظهر بيانات الصف الذى تم الضغط عليه يظهر فى مربعات النص وجعل الداتا ست تقف عند هذا السجل
RE: اختيار من داتا جرد - أبوبكر سويدان - 24-03-14
السلام عليكم ورحمة الله
لنفترض أنك أسميت الـ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
RE: اختيار من داتا جرد - الجندى - 24-03-14
جزاك الله خيراً على حسن الرد
جارى التجربة
RE: اختيار من داتا جرد - الجندى - 24-03-14
يعطيك العافية
تم التجربة ونجح معى
RE: اختيار من داتا جرد - أبوبكر سويدان - 25-03-14
طيب. الحمد لله.
RE: اختيار من داتا جرد - m.ahmed743 - 29-03-14
السلام عليكم
يمكنك تجربة هذا الكود
هو يقوم ب اخذ 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