تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
بطي عرض اليانات من flowlayoutpanel
#1
كيف حالكم اعزائي

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

ولكن 

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


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

وشكر
الرد }}
تم الشكر بواسطة: ابو انس
#2
لا يوجد حل للمشكلة
الرد }}
تم الشكر بواسطة:
#3
ممكن توضح كيف تستخدم اداة flowlayoutpanel بدل datagridview 
انا شخصيا ليس لدي اي تصور عن كيفية استخدام هذه الاداة كبديل عن datagridview 
ممكن ترفع مثال او كود 
سورس كود برنامج محاسبة ومبيعات احترافي ومتكامل- قم بالاطلاع على البرنامج 

واتساب 00963951283515
الرد }}
تم الشكر بواسطة:
#4
كود :
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
الرد }}
تم الشكر بواسطة: ابو انس
#5
الاداة 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
في حال كان كلامي غير واضح اخبرني لعمل مثال لك او ارفع انت مثال للتعديل عليه
سورس كود برنامج محاسبة ومبيعات احترافي ومتكامل- قم بالاطلاع على البرنامج 

واتساب 00963951283515
الرد }}
تم الشكر بواسطة:
#6
انا استخدمها لعرض البيانات من قاعدة البيانات بدل datagrid من خلال الكود السابق 

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


الملفات المرفقة صورة/صور
   
الرد }}
تم الشكر بواسطة: ابو انس
#7
ولكن كل ما زاد عدد السجلات في القاعدة اصبحت الاداة بطيه في عرض البيانات عكس datagrigview
الرد }}
تم الشكر بواسطة:
#8
لا يوجد حل للمشكلة
الرد }}
تم الشكر بواسطة:
#9
انت لم تقل لي هل جربت الكود الذي في ردي
انت تقول ان هناك مشكلة ثم تقول ان الكود الخاص بك يعمل بشكل جيد ....   ماذا اذا كانت المشكلة في الكود
ارفع لنا مثلا لنعدل عليه
سورس كود برنامج محاسبة ومبيعات احترافي ومتكامل- قم بالاطلاع على البرنامج 

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



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


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