هذا هو الحل
تفضل
أضفه فقط الى الفورم
Private Sub DetailsDataGridView_RowsAdded(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowsAddedEventArgs) Handles DetailsDataGridView.RowsAdded
Try
Dim am As Object
Dim i As Integer
For i = 0 To CheqDataSet.Tables(0).Rows.Count - 1
am += CheqDataSet.Tables(0).Rows(i).Item(5)
TextBox1.Text = am
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
الاخ العزيز الفاضل Esam rabba
شكراً جزيلا علي ردك السريع واهتمامك وجزاك الله خيرأ
بس ممكن تعديل شويه في الكود حيث انه يجمع كل القيم الموجودة بالجدول
وانا اريد القيم الموجوده في كل سجل علي حدا
يعني جمع قيمة العمود(Amount ) في السجل الحالي وليس جمع جميع السجلات
وجزاك الله خيراً
حاضر
تفضل
Try
Dim am As Object
Dim i As Integer
For i = 0 To DetailsDataGridView.Rows.Count - 1
am += DetailsDataGridView.Rows(i).Cells(5).Value
TextBox1.Text = am
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
اخي الحبيب Esam rabba
شكرا جزيلا عما فعلته شئ جميل منك وتحياتي لك وجزاك الله جيرا
ولو امكن وانا حاسس اني تقلت عليك
كود الحذف وكود التنقل لو امكن
وشكرا جزيلا علي ما قدمت
حاضر يا سيدي
بس كود لحذف جميع السجلات في الجدول ام فقط للسجلات الظاهره ؟
أخي العزيز الفاضل
شكراً جزيلا علي المساعدة لي واعتقد ايضا ان اناس كثيرون سوف يستفيدون مما قدمته
فجزاك الله خيرا
اريد كود حذف السجل الحالي( للسجلات الظاهره )ليس جميع لسجلات الموجودة في قاعدة البيانات
اي السجل الذي اعمل به حاليا
ولك كل التقدير
والسلام عليكم ورحة الله وبركاته
أخي العزيز هناك أكثر من طريقه للحذف
ولكن سأعطيك طريقه ممتعه
أضغط بالضغط مرتين على CheqDataSet.xsd ثم إضغط بالزر اليمين على DetailsTableAdapter واختر add qury
ثم اضغط next ثم اختر delete ثم ستأتي لك شاشه تطلب من أن تكتب الـ query
إكتب ما يلي
DELETE FROM Details
WHERE (Details.DetaiNo = ?)
ثم next
ثم Finish
ثم من أي مكان تريده يمكنك أن تكتب الكود التالي للحذف
DetailsTableAdapter.DeleteQuery(HeadNoTextBox.Text)
مع التحيه
متأسف بالنسبه للتنقل
HeadBindingSource.Position += 1
الاخ الفاضل Esam rabba
شكرا علي مجهوداتك دي ولك التحية والتقدير
بالنسبة للتنقل مفيش مشكلة المشكلة في الحذف عملت اللي قلتلي عليه بس مازبطتش
وشكراً لك
الاخ الفاضل Esam rabba
اين انت؟؟؟؟؟؟؟؟؟؟؟
وشكراً
الاخوة الافاضل
الخ العزيز Esam rabba
جزاكم الله خيراً
اسمحوا لي ان اقدم كود الحذف بع ما توصلت اليه بمساعدتكم واخص بالذكر الاخ /Esam rabba
*********
أضغط بالضغط مرتين على CheqDataSet.xsd ثم إضغط بالزر اليمين على DetailsTableAdapter واختر add qury
ثم اضغط next ثم اختر delete ثم ستأتي لك شاشه تطلب من أن تكتب الـ query
إكتب ما يلي
DELETE FROM
Details WHERE
HeadNum = @Original_HeadNum
ثم next
ثم Finish
ثم من أي مكان تريده يمكنك أن تكتب الكود التالي للحذف
DetailsTableAdapter.DeleteQuery(HeadNumTextBox.Text)
HeadTableAdapter.DeleteQuery(HeadNumTextBox.Text)
جزاكم الله خيراً
ادعوا لوالديا بالمغفرة والرحمة اللهم ارحمهما كما ربياني صغيراً
الله اغفر لي والوالديا وللمؤمنين يوم يقوم الحساب
سبحان الله وبحمده سبحان الله العظيم
هذا الموضوع مغلق.