منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
بطي عرض اليانات من flowlayoutpanel - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : بطي عرض اليانات من flowlayoutpanel (/showthread.php?tid=40806)

الصفحات: 1 2

بطي عرض اليانات من flowlayoutpanel - عبدالكريم برشدان - 23-02-22

كيف حالكم اعزائي

انا استخدم اداة flowlayoutpanel بدل datagridview في عرض البيانات من القاعدة والعمليات تسير يشكل جيد 

ولكن 

اةجد لدي مشكلة بطي في جلب البيانات من القاعدة الان عندما تزيد البيانات في الجدول يصبح البطي اكثر 


ما الحل في عملية البطي وما البديل في تسريع عرض البيانات

وشكر

RE: بطي عرض اليانات من flowlayoutpanel - عبدالكريم برشدان - 28-02-22

لا يوجد حل للمشكلة

RE: بطي عرض اليانات من flowlayoutpanel - ابو انس - 28-02-22

ممكن توضح كيف تستخدم اداة flowlayoutpanel بدل datagridview 
انا شخصيا ليس لدي اي تصور عن كيفية استخدام هذه الاداة كبديل عن datagridview 
ممكن ترفع مثال او كود 

RE: بطي عرض اليانات من flowlayoutpanel - عبدالكريم برشدان - 04-03-22

كود :
Try
           Me.FlowLayoutPanel1.Controls.Clear()
           If conn.State = ConnectionState.Closed Then conn.Open()
           Dim SqlStr As String = "Select * From Tbl_all_store where ID_STORE=" & Label2.Text & ""



           Dim Cmd As New SqlCommand(SqlStr, conn)
           Dim DR As SqlDataReader
           DR = Cmd.ExecuteReader
           If DR.HasRows Then

               While DR.Read
                   'Dim clrs() As Color = {Color.LightCoral, Color.DarkKhaki, Color.DarkViolet, Color.Crimson, Color.Tomato}

                   Dim uc As New uc_cart_store_inve

                   uc.Label3.Text = DR("ItemName").ToString
                   uc.Label6.Text = DR("ExpirationDate").ToString
                   uc.Label1.Text = DR("PurchasePrice").ToString
                   uc.Label2.Text = DR("SalePrice").ToString
                   uc.Label4.Text = DR("SalePrice2").ToString
                   uc.Label5.Text = DR("Quantitys").ToString
                   Me.FlowLayoutPanel1.Controls.Add(uc)
               End While
           End If
           DR.Close()
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try


RE: بطي عرض اليانات من flowlayoutpanel - ابو انس - 04-03-22

الاداة flowlayoutpanel ليست لعرض البيانات وحسب الكود الذي ذكرته انت فانت تستخدم lable لعرض البيانات ولكنك تضع هذه الليبل في اداة flowlayoutpanel  والتي هي عبارة عن panel من نوع خاص

على كل حال قم بتعديل الكود بحيث تستخدم داتا تيبل
كود :
     Dim DT As New DataTable
           DT.Clear()
           Dim ADP As New SqlDataAdapter("Select c1,c2,c3 From Tbl_all_store where ID_STORE=" & Label2.Text & "", conn)
           ADP.Fill(DT)

           If DT.Rows.Count > 0 Then
               Label3.Text = DT.Rows(0)("c1").ToString
           End If
في حال كان كلامي غير واضح اخبرني لعمل مثال لك او ارفع انت مثال للتعديل عليه

RE: بطي عرض اليانات من flowlayoutpanel - عبدالكريم برشدان - 04-03-22

انا استخدمها لعرض البيانات من قاعدة البيانات بدل datagrid من خلال الكود السابق 

الكود يعمل بشكل جيد

RE: بطي عرض اليانات من flowlayoutpanel - عبدالكريم برشدان - 04-03-22

ولكن كل ما زاد عدد السجلات في القاعدة اصبحت الاداة بطيه في عرض البيانات عكس datagrigview

RE: بطي عرض اليانات من flowlayoutpanel - عبدالكريم برشدان - 11-03-22

لا يوجد حل للمشكلة

RE: بطي عرض اليانات من flowlayoutpanel - ابو انس - 11-03-22

انت لم تقل لي هل جربت الكود الذي في ردي
انت تقول ان هناك مشكلة ثم تقول ان الكود الخاص بك يعمل بشكل جيد ....   ماذا اذا كانت المشكلة في الكود
ارفع لنا مثلا لنعدل عليه

RE: بطي عرض اليانات من flowlayoutpanel - عبدالكريم برشدان - 11-03-22

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