+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : الاستعلام لا يعمل مع BackgroundWorker (/showthread.php?tid=31532)
RE: الاستعلام لا يعمل مع BackgroundWorker - Emam emam - 02-10-19
(02-10-19, 07:09 AM)asemshahen5 كتب : الغ -1
الله عليك تسلم ايدك اخي
كده اشتغل معايا 100 %
والله لا اعرف كيف اشكرك
جزاك الله عنا كل خير
وجعله في ميزان حسناتك ان شاء الله
RE: الاستعلام لا يعمل مع BackgroundWorker - asemshahen5 - 06-10-19
السلام عليكم فرغ صندوق الرسائل الخاصة عندك الصندوق ممتلئ و ضع مثالا مصغرا فيه الخطأ اما بمرفقات الموضوع او في ميديا فاير او في غوغل درايف .
RE: الاستعلام لا يعمل مع BackgroundWorker - Emam emam - 06-10-19
(06-10-19, 08:22 PM)asemshahen5 كتب : السلام عليكم فرغ صندوق الرسائل الخاصة عندك الصندوق ممتلئ و ضع مثالا مصغرا فيه الخطأ اما بمرفقات الموضوع او في ميديا فاير او في غوغل درايف .
تفضل اخي هدا جزء من المشروع
بعد تشغيل المشروع قم بتحديد التاريخ من شهر 1 حتي يقوم بجلب بانات كثيره فيكون الامر اكثر وضوحا
بعد تحميل البيانات ستجد البرنامج يقف لعدة لحظات وبعدها تجد ال scrollbar لا يتحرك معك حتي لو وصلت لاخر حاجه في الداتا جريد فيو
واشكرك كثيرا اخي علي تواضعك واهتمامك
RE: الاستعلام لا يعمل مع BackgroundWorker - Emam emam - 09-10-19
السلام عليكم اخوتي
اولا اشكر اخي asemshahen5
فقد اتعبته كثيرا في هدا الموضوع
ولكن متبقي جزئيه بسيطه لعلي اجد الحل ان شاء الله
وهي ان ال Preogress bar لا يظهر الا بعد انتهاء تحميل البيانات ويظهر للحظه ويختفي
واريد ان يظهر ال Preogress bar ويتقدم مع تحميل البيانات وبعد الانتهاء يختفي
هدا جزء من المشروع
ارجو التعديل عليه وجزاكم الله خير الجزاء
[attachment=23148]
RE: الاستعلام لا يعمل مع BackgroundWorker - asemshahen5 - 09-10-19
هذا الملف بعد التعديل :
RE: الاستعلام لا يعمل مع BackgroundWorker - Emam emam - 09-10-19
(09-10-19, 04:11 PM)asemshahen5 كتب : هذا الملف بعد التعديل :
جزاكم الله خير الجزاء اخي
سأجرب واوافيك بالاخبار ان شاء الله
RE: الاستعلام لا يعمل مع BackgroundWorker - Emam emam - 10-10-19
(09-10-19, 04:11 PM)asemshahen5 كتب : هذا الملف بعد التعديل :
السلام عليكم اخي asemshahen5
والله يا اخي يعجز لساني عن شكرك
لا اعرف كيف اشكرك
جزاك الله عني وعن كل الجروب خير الجزاء وجعله الله في ميزان حسناتك
اهم مشكلتين عندي تم حلهم بفضل الله ثم مساعدتك لي
بارك الله فيك اخي
وهناك شيئ بسيط في نفسي واطمع في كرمك
وهو اني اريد جمع صف معين في الداتا جريد فيو بعد الانتهاء من التحميل وهدا هو الكود الدي استخدمه ولكن لايعمل مع استخدام ال Backgroundworker
PHP كود :
Dim sum As Double
For s As Integer = 0 To DataGridView1.RowCount - 1
sum = sum + DataGridView1.Rows(s).Cells("ActPercent").Value
Next
Label20.Text = sum
RE: الاستعلام لا يعمل مع BackgroundWorker - asemshahen5 - 10-10-19
ما اسم هذا العامود في جدول قاعدة البيانات ActPercent
أو جرب هذا الكود بعد اللوب :
PHP كود :
Invoke(Sub() RichTextBox1.Text = (From row In DataGridView1.Rows Select CDbl(row.Cells(0).Value)).Sum().ToString("00,000.00"))
RE: الاستعلام لا يعمل مع BackgroundWorker - Emam emam - 10-10-19
(10-10-19, 05:23 AM)asemshahen5 كتب : ما اسم هذا العامود في جدول قاعدة البيانات ActPercent
أو جرب هذا الكود بعد اللوب :
PHP كود :
Invoke(Sub() RichTextBox1.Text = (From row In DataGridView1.Rows Select CDbl(row.Cells(0).Value)).Sum().ToString("00,000.00"))
جربته اخي ولكن لم ينجح
مع العلم ان الكود في حدث ال Dowork كما يلي
PHP كود :
Dim sum As Double
For s As Integer = 0 To DataGridView1.RowCount - 1
sum = sum + DataGridView1.Rows(s).Cells("ActPercent").Value
Invoke(Sub() Label20.Text = (From row In DataGridView1.Rows Select CDbl(row.Cells("ActPercent").Value)).Sum().ToString("00,000.00"))
Next
Label20.Text = sum
RE: الاستعلام لا يعمل مع BackgroundWorker - asemshahen5 - 10-10-19
الغ اللوب الخاص بالجمع و المتغيير sum فقط ضع الكود التالي هو سيقوم بالمطلوب و به اسم الليبل سيعبئها تلقائيا :
PHP كود :
Invoke(Sub() Label20.Text = (From row In DataGridView1.Rows Select CDbl(row.Cells("ActPercent").Value)).Sum().ToString("00,000.00"))
PHP كود :
Private Sub BackgroundWorker2_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker2.DoWork
Invoke(Sub() Label20.Text = (From row In DataGridView1.Rows Select CDbl(row.Cells("ActPercent").Value)).Sum().ToString("00,000.00"))
End Sub