منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

سلام عليكم






عملت بحث عن فاتورة ولكن لا يظهر الا اول صف فقط بالرغم انا لفاتورة فيها اكثر من صف


ااستعمل 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

محدش بيمر على المنتدى؟؟؟؟؟

السلام عليكم

اخي الكريم هل بحثت جيدا في المنتدى ؟؟؟؟؟؟

على كل حال بامكانك الاستفادة من هذا الرابط

http://vb4arb.com/vb/Thread-%D8%AA%D8%AD...1#pid46511

يعطيك العافية

انا بحثت اكيد وللاسف مش لاقى اللى انا عاوزة
انا عاوز اعمل بحث او استعلام والنتائج تظهر فى الجريد فيو
وانا اقوم بالبحث عن فاتورة
والكود السابق يعرض اول ضف فقط لا غير
اتمنى المساعده وشكرا

شاهد الدروس من 28 الى 32 من هذه السلسة ففيها شرح للتقنية

https://www.youtube.com/playlist?list=PL...LMpBJ10rSF

شكرا لحضرتك انا عارف الفديوهات ومحملها عندى بس للاسف مش فيها الجزئيه الى بقول عليها
وهى تبع  المهندس احمد النجار ومعروف جدا 

الحمد لله تم الوصول الى الحل وبواسطه الشرح للاستاذ احمد النجار
وكان الخطا عندى فى جمله الاستعلام
وده الكود وهو استعلام من اكثر من جدول وعرضها فى الجريد فيو
لتعم الفائده
 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

طيب .. انا شفت الموضوع متاخر ..
خدها قاعده : لما تريد جلب  أكثر من سجل أستخدم ToList
وأستخدم For Each  في  شحن القريد  وكمان حاول تستخدم Lamda  بيكون أفضل وأسرع
وخد بالك من نقطة  مهمه : فرغ مصد البيانات بعد الشحن حتى  ترتاح الذاكرة
بس ويعطيك العافيه

(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

ربنا يجعله فى ميزان حسانتك يارب انا على بالى انك مش احمد النجار
 
وياترى فى شرح لكريستال ريبورت ولالا
وفى درس تبع التعديل اقدر اعدل من الجريد فيو ويحدث فى اكثر من جدول
بمعنى ايه
ان الجريد فيو بتحمل بيانات من اكثر من جدول لو انا عدلت فيها يتم التعديل فى الجدوال دى
هل حضرتك موضحه فى الشرح ولا ايه انا بسمع الدروس حاليا بس اللى فهمته انه بيعدل فى جدول واحد

---

(06-06-15, 01:15 AM)Abu Ehab كتب : [ -> ]طيب .. انا شفت الموضوع متاخر ..
خدها قاعده : لما تريد جلب  أكثر من سجل أستخدم ToList
وأستخدم For Each  في  شحن القريد  وكمان حاول تستخدم Lamda  بيكون أفضل وأسرع
وخد بالك من نقطة  مهمه : فرغ مصد البيانات بعد الشحن حتى  ترتاح الذاكرة
بس ويعطيك العافيه

شكرا لمرورك
وانا كتبت الكود تبعى ياريت تكتبه بالطريقه بتاعتك حتى تعم الفائده للجميع وكمان استعملها
وشكرا