تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[SQL] مساعده فى linq sql بحث وعرض النتائج فى الجريد فيو
#1
سلام عليكم






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


ااستعمل 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
الرد
تم الشكر بواسطة:
#2
محدش بيمر على المنتدى؟؟؟؟؟
الرد
تم الشكر بواسطة:
#3
السلام عليكم

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

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

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

يعطيك العافية
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

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

https://www.youtube.com/playlist?list=PL...LMpBJ10rSF
الرد
تم الشكر بواسطة: ابوميار
#6
شكرا لحضرتك انا عارف الفديوهات ومحملها عندى بس للاسف مش فيها الجزئيه الى بقول عليها
وهى تبع  المهندس احمد النجار ومعروف جدا 
الرد
تم الشكر بواسطة:
#7
الحمد لله تم الوصول الى الحل وبواسطه الشرح للاستاذ احمد النجار
وكان الخطا عندى فى جمله الاستعلام
وده الكود وهو استعلام من اكثر من جدول وعرضها فى الجريد فيو
لتعم الفائده
 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
الرد
تم الشكر بواسطة:
#8
طيب .. انا شفت الموضوع متاخر ..
خدها قاعده : لما تريد جلب  أكثر من سجل أستخدم ToList
وأستخدم For Each  في  شحن القريد  وكمان حاول تستخدم Lamda  بيكون أفضل وأسرع
وخد بالك من نقطة  مهمه : فرغ مصد البيانات بعد الشحن حتى  ترتاح الذاكرة
بس ويعطيك العافيه
Abu Ehab : Microsoft Partner  & Systems Developer
 Youtube   Facebook    Twitter   
الرد
تم الشكر بواسطة:
#9
(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

الحمد لله ان دروسي كانت مفيدة لك  Smile
الرد
تم الشكر بواسطة: ابوميار
#10
ربنا يجعله فى ميزان حسانتك يارب انا على بالى انك مش احمد النجار
 
وياترى فى شرح لكريستال ريبورت ولالا
وفى درس تبع التعديل اقدر اعدل من الجريد فيو ويحدث فى اكثر من جدول
بمعنى ايه
ان الجريد فيو بتحمل بيانات من اكثر من جدول لو انا عدلت فيها يتم التعديل فى الجدوال دى
هل حضرتك موضحه فى الشرح ولا ايه انا بسمع الدروس حاليا بس اللى فهمته انه بيعدل فى جدول واحد

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] ممكن مساعده في حل هذي المشكله لو سمح moh123456 1 58 21-08-19, 10:12 PM
آخر رد: ابراهيم ايبو
  [سؤال] مساعده في الكود اليوم السابع 14 278 02-08-19, 06:58 AM
آخر رد: asemshahen5
  مساعده في كود متابعة المستخدمين Emam emam 4 146 31-07-19, 07:33 PM
آخر رد: Emam emam
  [VB.NET] محتاج مساعده في كود ارجوكم انا علي يقين هلاقي حد يساعدني bakriano30@yahoo.com 12 320 30-07-19, 12:51 PM
آخر رد: asemshahen5
  سؤال حول امكانية البحث من خلال الكومبوبوكس أو التكست بوكس وعرض نتائج البحث في الكومبو foular 3 107 24-07-19, 11:22 PM
آخر رد: عبد العزيز البسكري
  [VB.NET] السلام عليكم اخواني واخواتي اريد مساعده في تصدير بيانات الداتا قريد فيو الي اكسل hosamloveme888@yahoo.com 2 106 24-07-19, 01:40 PM
آخر رد: asemshahen5
  [VB.NET] مساعده الله يجزيكم خير bakriano30@yahoo.com 0 67 17-07-19, 08:56 AM
آخر رد: bakriano30@yahoo.com
  محتاج مساعده مهمه جدا ياريت الافاده محمود الجبود 3 202 08-07-19, 12:20 AM
آخر رد: محمود الجبود
  [VB.NET] مساعده في تصحيح كود sent number dubai.eig 7 241 20-04-19, 11:34 AM
آخر رد: elgokr
  [كود] احتاج مساعده في استخلاص قيمة من صفحة ويب dametucorazon 2 245 14-03-19, 08:49 AM
آخر رد: dametucorazon

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم