السلام عليكم ورحمة الله وبركاته
كيف حالكم اخواني ارجو ان تتسع لي صدوركم واجد لديكم الاجابة الشافية لسؤالي
عندي داتا قريد (h) فيها عامود للمبالغ :blink: يعني كل صف فيه مبلغ اريد ان اجمع هذه المبالغ وعرضها في TextBox :unsure:
مثال :wacko:
اليوم المبلغ
السبت 400
الاحد 50
الاثنين 70
اريد ان اجمع هذه المبالغ وعرضها في الــ TextBox يعني يكون في البوكس 520
وشكر ا
الله يجزاكم خير اللي يعرف لا يبخل علينا
السلام عليكم
عزيزي , إبحث في المنتدى ربما عشرت مواضيع أو أكثر عن هذا الطلب .. بالتوفيق إن شاء الله.
في المثال يتضح المقال
بحثت كثيرا ووجدت الكثير من المواضيع لكن بدون اجابة شافية
هل هي صعبة ؟؟ ام انه هناك طرق اخرى
افيدونا بأي فكرة او حل او طريقة
اخى العزيز هل تريد ان تجمع
عامود ووضعه فى textbox
اعتقد ان من الممكن ان تقوم بذلك فى الداتا بيز بدلا من كل هذه المشاوير
عن طريق الدالة sum
لكنى لم اجد طريقة فى جمع العامود ووضعه فى textbox
عموما ساجرب مرة ثانية وقول لك
ايميلى هو bmw_formuola@hotmail.com
السلام عليكم ورحمة الله
اقتباساعتقد ان من الممكن ان تقوم بذلك فى الداتا بيز بدلا من كل هذه المشاويرعن طريق الدالة sum
أعتقد أن فكرة (ماتريكس ريلود) هي مفضلة واكثر استخداماً , أما إذا كنت مصر علي جمع عمود في الـ DataGrid فهناك طريقة كنت أستخدمها دائماً مع الـ DataGrid التي تقرأ من كائن DataTable يتم إنشاؤه فقط في وقت التشغيل أي لا يوجد كائن DataSet في المشروع , طبعاً في حالة وجود DataSet في المشروع لا أعتقد أنه توجد مشكلة لانه بامكانك التعامل مع مصدر البيانات مباشرة دون وسيط وأعني بالوسيط هنا كائن الـ DataGrid
Dim Total As Double
For Each dr As DataRow in CType(DataGridName.DataSource,DataTable)
Total + = CType(dr.Item("ColumnFieldName"),Double)
YourTextBoxName.Text = Total
Nextمع ملاحظة أنه يجب عليك استبدال المتغيرات التالية علي حسب مايوجد عندك في النموذج
DataGridName استبدلها باسم كائن الـ DataGrid الموجود عندك
ColumnFieldName استبدلها باسم الحقل الذي يحتوي علي المبالغ التي تريد جمعها
YourTextBoxName استبدله باسم كائن الـ TextBox الذي تريد عرض المجموع فيه
والله الموفق
تم تعديل هذه المشاركة بواسطة Ammar Gaffar في 18 يناير 2006 في 16:03
شكرا لكم
اشكرك اخي (ماتريكس ريلود)
لم استطع استعمال Sum لانه لايوجد لدي قاعدة بيانات انا استعمل ملف لتخزين البيانات
Ammar Gaffar
طريقة جميلة اشكرك فعلا
السلام عليكم
يظهر لي خطأ هو
Expression is of type 'System.Data.DataTable', which is not a collection type.
حيث وضعت الكود في datagridcurentcellchaged
ما الحل
ارجو المساعدة
و اخيرا لقيت الحل
تصحيح لكود الأخ ammar
Dim Total As Double
Dim x As New DataTable
For Each dr As DataRow In CType(datagridname.DataSource, datasetname.table_datatable)
Total += CType(dr.Item("feildname"), Double)
txtname.Text = Total
Nextهذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…