+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [ تمّ الحل ] : الفرز حسب التّاريخ (/showthread.php?tid=23556)
[ تمّ الحل ] : الفرز حسب التّاريخ - عبد العزيز البسكري - 28-01-18
السّلام عليكم و رحمة الله و بركاته
أمسية طيّبة مباركة و أوقات سعيدة للجميع
إخواني الأفاضل .. فضل و إحسان منكم المساعدة بإيجاد حل لهذه الإشكاليّة
بالفورم 1 لديَّ كومبوبوكس 1 لعرض التّواريخ بطريقة غير مكرّرة من الحقل DateSeance
ما أريده لو سمحتم ..
عرض القيمة الإجمالية بالتاكست بكس 1 حسب التاريخ المختار بالكومبوبكس 1
مثلاً لو قمت باختيار التاريخ 23/02/2017 .. يظهر بالتاكست بكس 1 الاجمالي لهذا التاريخ من الحقل Somme و هو : 3500.25
مثلا لو قمت باختيار التاريخ 01/01/2018 .. يظهر بالتاكست بكس 1 الإجمالي لهذا التاريخ من الحقل Somme و هو : 3367.21
و هكذا مع بقية التّواريخ المتغيّرة و غير الثابتة
أمّا التاكست بكس 2 فيظهر به إجمالي الحقل Somme
بارك الله فيكم و لكم مقدّمًا و جزاكم خير الجزاء
تحياتي
RE: الفرز حسب التّاريخ - عبدالله الدوسري - 28-01-18
أهلاً أخي عبد العزيز البسكري
إذا ممكن الكود الخاص بإضافة التاريخ للـ ComboBox
DateSeance
Somme
هذة الحقول يجب أن تكون متوفر في الكود الذي سترفقة هنا ليتم التعديل
RE: الفرز حسب التّاريخ - عبد العزيز البسكري - 28-01-18
السّلام عليكم و رحمة الله و بركاته
ربّنا يبارك فيك و في كل أعمالك و في صحّتك و أوقاتك أستاذنا المحترم " عبد الله الدّوسري "
سبّاق دومَا لعمل الخيرات .. عوّضك الله بخير و أحسن منها إن شاء الله
تفضّل سيّدي الكريم الملف بالمرفقات ..
إدخال التّاريخ و القيمة بالفورم 1 .. حسب DateTimePicker1 و TextBox6
أمّا سؤالي فهو يتعلّق بالفورم 2 المخصّصة لعرض ما ذكرته بمشاركتي الأولى
كل المحبّة و الاحترام و الشكر و التقدير
RE: الفرز حسب التّاريخ - محمود صالح - 28-01-18
اخي عبد العزيز
ضع الكود في الفورم2 زي ما هو
PHP كود :
Private Sub ComboBox1_DropDownClosed(sender As Object, e As EventArgs) Handles ComboBox1.DropDownClosed
On Error Resume Next
Dim da_Name As New OleDb.OleDbDataAdapter("select DateSeance ,sum(Somme) as Somme From TABLETTE where DateSeance like '" & ComboBox1.Text & "' group by DateSeance", con)
da_Name.Fill(dt)
TextBox1.Text = dt.Rows(dt.Rows.Count - 1).Item("Somme")
End Sub
RE: الفرز حسب التّاريخ - عبدالله الدوسري - 28-01-18
[attachment=16927]
[attachment=16928]
[attachment=16929]
RE: الفرز حسب التّاريخ - عبد العزيز البسكري - 28-01-18
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك و جزاك خير الجزاء أخي الكريم " محمود صالح " على المساعدة
زادك الله من علمه و فضله و نفع بك الاسلام و المسلمين إن شاء الله
فط لو تكرّمت بالنّظر في الملف .. لاحظ لو سمحت ..
إخترت مثلا التاريخ 21/02/2018 .. من المفروض تظهر بالتاكست 1 القيمة 1500.91
إخترت مثلا التاريخ 23/02/2017 .. من المفروض تظهر بالتاكست 1 القيمة 3500.25
تحياتي واحتراماتي
السّلام عليكم و رحمة الله و بركاته
تسلم و يسلم يمينك و دينك أخي الكريم " عبد الله الدّوسري "
إلهي لا يحرمنا منك و من هداياك الثمينة أبد الدّهر و يطيل بعمرك و عمر من تحب بمحبّته و مرضاته إن شاء الله
أستاذي الغالي ..
بالفعل هذا ما أريده بالتّمام و الكمال .. و الكمال لله
فقط .. بعد إذنك .. و مع كامل إعتذاري و أسفي .. و ليس بنيّتي إرهاقك معي أبدًا و الله أعلم بذلك
لو سمحت و سمحت ظروفك بذلك ..
نقطة واحدة أفسدت لي نكهة الملف ..
هل من الممكن إيجاد صيغة أخرى للتخلّص من هاتيْن الأداتيْن ..
كل الاحترام و الود و الحب الأخوي
RE: الفرز حسب التّاريخ - عبدالله الدوسري - 28-01-18
احذفهم بكل بساطة
كانت فقط لأغراض تنفيذ جملة الإستعلام
عزيز وغالي أخي عبد العزيز
RE: الفرز حسب التّاريخ - عبد العزيز البسكري - 28-01-18
السّلام عليكم و رحمة الله و بركاته
[b]" عبد الله الدّوسري "[/b]
أدعو الله أن يكرمك و ينعم عليك بطيّبات الدنيا و الآخرة بعد عمر طويل إن شاء الله و يرزقك ما تتمنّاه و يزيدك من علمه و فضله
لم تخطر ببالي أنّ حذفهما لا يؤثّر على الملف ..
أراح الله قلبك و بالك مثلما أرحتني و رفع قدرك و منزلتك ليوم الدين
الشّكر و المحبّة و التقدير و الاحترام موصول لأخي الفاضل " محمود صالح " على نيّة المساعدة
تحياتي و تقييماتي
RE: [ تمّ الحل ] : الفرز حسب التّاريخ - محمود صالح - 28-01-18
استاذ عبد الله الدّوسري قام بواجب وزيادة