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

نسخة كاملة : بطي عرض اليانات من flowlayoutpanel
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
كيف حالكم اعزائي

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

ولكن 

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


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

وشكر
لا يوجد حل للمشكلة
ممكن توضح كيف تستخدم اداة flowlayoutpanel بدل datagridview 
انا شخصيا ليس لدي اي تصور عن كيفية استخدام هذه الاداة كبديل عن datagridview 
ممكن ترفع مثال او كود 
كود :
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
الاداة 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
في حال كان كلامي غير واضح اخبرني لعمل مثال لك او ارفع انت مثال للتعديل عليه
انا استخدمها لعرض البيانات من قاعدة البيانات بدل datagrid من خلال الكود السابق 

الكود يعمل بشكل جيد
ولكن كل ما زاد عدد السجلات في القاعدة اصبحت الاداة بطيه في عرض البيانات عكس datagrigview
لا يوجد حل للمشكلة
انت لم تقل لي هل جربت الكود الذي في ردي
انت تقول ان هناك مشكلة ثم تقول ان الكود الخاص بك يعمل بشكل جيد ....   ماذا اذا كانت المشكلة في الكود
ارفع لنا مثلا لنعدل عليه
المشكلة : يوجد بطي في جلب البيانات من القاعدة 
عندما يكون عدد السجلات  كبير يستغرق جلب البيانات دقائق واحيانا يصل الي دقيقتين
الصفحات : 1 2