+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [SQL] مساعده فى linq sql بحث وعرض النتائج فى الجريد فيو (/showthread.php?tid=12428)
الصفحات:
1
2
مساعده فى linq sql بحث وعرض النتائج فى الجريد فيو - ابوميار - 05-06-15
سلام عليكم
عملت بحث عن فاتورة ولكن لا يظهر الا اول صف فقط بالرغم انا لفاتورة فيها اكثر من صف
ااستعمل linq to sql
والكود اهو
Try
Dim data = (From d In DBVariable.Data.masterfatoras From f In DBVariable.Data.fatoras From na In DBVariable.Data.asnafs From sup In DBVariable.Data.suppliers
Where d.ID = f.mid Where d.num.Contains(txt)
Select d, f, na, sup).FirstOrDefault
TextBoxX1.Text = data.d.num
nammord.Text = (From supp In DBVariable.Data.suppliers Where data.d.idmord = supp.ID Select supp.Name).Single()
txtmord.Text = (From supp In DBVariable.Data.suppliers Where data.d.idmord = supp.ID Select supp.Code).Single()
adrmord.Text = (From supp In DBVariable.Data.suppliers Where data.d.idmord = supp.ID Select supp.Address).Single()
nodaf.Text = data.d.nodfa
' ''نفاصيل الفاتورة
For p As Integer = 0 To gridshraa.Rows.Count - 1
gridshraa.Rows(p).Cells(2).Value = (From asna In DBVariable.Data.asnafs Where data.f.idname = asna.ID Select asna.Name).Single()
gridshraa.Rows(p).Cells(1).Value = (From asna In DBVariable.Data.asnafs Where data.f.idname = asna.ID Select asna.code).Single()
gridshraa.Rows(p).Cells(3).Value = (From asna In DBVariable.Data.asnafs Where data.f.idname = asna.ID Select asna.unit).Single()
gridshraa.Rows(p).Cells(4).Value = data.f.qty
gridshraa.Rows(p).Cells(5).Value = data.f.price
gridshraa.Rows(p).Cells(6).Value = data.f.totprice
Next
Catch
End Try
RE: مساعده فى linq sql بحث وعرض النتائج فى الجريد فيو - ابوميار - 05-06-15
محدش بيمر على المنتدى؟؟؟؟؟
RE: مساعده فى linq sql بحث وعرض النتائج فى الجريد فيو - abulayth - 05-06-15
السلام عليكم
اخي الكريم هل بحثت جيدا في المنتدى ؟؟؟؟؟؟
على كل حال بامكانك الاستفادة من هذا الرابط
http://vb4arb.com/vb/Thread-%D8%AA%D8%AD%D8%AF%D9%8A%D8%AB-%D8%A7%D9%84%D8%A8%D9%8A%D8%A7%D9%86%D8%A7%D8%AA-%D8%A8%D8%A7%D9%84%D8%AF%D8%A7%D8%AA%D8%A7-%D8%AC%D8%B1%D9%8A%D8%AF-%D9%81%D9%8A%D9%88%D8%8C-linq?pid=46511#pid46511
يعطيك العافية
RE: مساعده فى linq sql بحث وعرض النتائج فى الجريد فيو - ابوميار - 05-06-15
انا بحثت اكيد وللاسف مش لاقى اللى انا عاوزة
انا عاوز اعمل بحث او استعلام والنتائج تظهر فى الجريد فيو
وانا اقوم بالبحث عن فاتورة
والكود السابق يعرض اول ضف فقط لا غير
اتمنى المساعده وشكرا
RE: مساعده فى linq sql بحث وعرض النتائج فى الجريد فيو - أحمد النجار - 05-06-15
شاهد الدروس من 28 الى 32 من هذه السلسة ففيها شرح للتقنية
https://www.youtube.com/playlist?list=PLdI8JH1ubsUCKXAhEk9qi9GLMpBJ10rSF
RE: مساعده فى linq sql بحث وعرض النتائج فى الجريد فيو - ابوميار - 05-06-15
شكرا لحضرتك انا عارف الفديوهات ومحملها عندى بس للاسف مش فيها الجزئيه الى بقول عليها
وهى تبع المهندس احمد النجار ومعروف جدا
RE: مساعده فى linq sql بحث وعرض النتائج فى الجريد فيو - ابوميار - 06-06-15
الحمد لله تم الوصول الى الحل وبواسطه الشرح للاستاذ احمد النجار
وكان الخطا عندى فى جمله الاستعلام
وده الكود وهو استعلام من اكثر من جدول وعرضها فى الجريد فيو
لتعم الفائده
Dim fat = (From d In DBVariable.Data.masterfatoras Join s In DBVariable.Data.fatoras On d.ID Equals s.mid
Join asn In DBVariable.Data.asnafs On s.idname Equals asn.ID
Join sup In DBVariable.Data.suppliers On d.idmord Equals sup.ID
Where d.num.Contains(txt)
Select asn.code, asn.Name, asn.unit, s.qty, s.price, s.totprice)
gridshraa.DataSource = fat
gridshraa.Columns(0).HeaderText = "كود الصنف"
gridshraa.Columns(1).HeaderText = "اسم الصنف"
gridshraa.Columns(2).HeaderText = "الوحدة"
gridshraa.Columns(3).HeaderText = "ألكميه"
gridshraa.Columns(4).HeaderText = "سعر "
gridshraa.Columns(5).HeaderText = "الاجمالى"
gridshraa.DataSource = fat
RE: مساعده فى linq sql بحث وعرض النتائج فى الجريد فيو - Abu Ehab - 06-06-15
طيب .. انا شفت الموضوع متاخر ..
خدها قاعده : لما تريد جلب أكثر من سجل أستخدم ToList
وأستخدم For Each في شحن القريد وكمان حاول تستخدم Lamda بيكون أفضل وأسرع
وخد بالك من نقطة مهمه : فرغ مصد البيانات بعد الشحن حتى ترتاح الذاكرة
بس ويعطيك العافيه
RE: مساعده فى linq sql بحث وعرض النتائج فى الجريد فيو - أحمد النجار - 06-06-15
(06-06-15, 01:09 AM)ابوميار كتب : الحمد لله تم الوصول الى الحل وبواسطه الشرح للاستاذ احمد النجار
وكان الخطا عندى فى جمله الاستعلام
وده الكود وهو استعلام من اكثر من جدول وعرضها فى الجريد فيو
لتعم الفائده
Dim fat = (From d In DBVariable.Data.masterfatoras Join s In DBVariable.Data.fatoras On d.ID Equals s.mid
Join asn In DBVariable.Data.asnafs On s.idname Equals asn.ID
Join sup In DBVariable.Data.suppliers On d.idmord Equals sup.ID
Where d.num.Contains(txt)
Select asn.code, asn.Name, asn.unit, s.qty, s.price, s.totprice)
gridshraa.DataSource = fat
gridshraa.Columns(0).HeaderText = "كود الصنف"
gridshraa.Columns(1).HeaderText = "اسم الصنف"
gridshraa.Columns(2).HeaderText = "الوحدة"
gridshraa.Columns(3).HeaderText = "ألكميه"
gridshraa.Columns(4).HeaderText = "سعر "
gridshraa.Columns(5).HeaderText = "الاجمالى"
gridshraa.DataSource = fat
الحمد لله ان دروسي كانت مفيدة لك 
RE: مساعده فى linq sql بحث وعرض النتائج فى الجريد فيو - ابوميار - 06-06-15
ربنا يجعله فى ميزان حسانتك يارب انا على بالى انك مش احمد النجار
وياترى فى شرح لكريستال ريبورت ولالا
وفى درس تبع التعديل اقدر اعدل من الجريد فيو ويحدث فى اكثر من جدول
بمعنى ايه
ان الجريد فيو بتحمل بيانات من اكثر من جدول لو انا عدلت فيها يتم التعديل فى الجدوال دى
هل حضرتك موضحه فى الشرح ولا ايه انا بسمع الدروس حاليا بس اللى فهمته انه بيعدل فى جدول واحد
(06-06-15, 01:15 AM)Abu Ehab كتب : طيب .. انا شفت الموضوع متاخر ..
خدها قاعده : لما تريد جلب أكثر من سجل أستخدم ToList
وأستخدم For Each في شحن القريد وكمان حاول تستخدم Lamda بيكون أفضل وأسرع
وخد بالك من نقطة مهمه : فرغ مصد البيانات بعد الشحن حتى ترتاح الذاكرة
بس ويعطيك العافيه
شكرا لمرورك
وانا كتبت الكود تبعى ياريت تكتبه بالطريقه بتاعتك حتى تعم الفائده للجميع وكمان استعملها
وشكرا