ممكن توضح كيف تستخدم اداة 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
في حال كان كلامي غير واضح اخبرني لعمل مثال لك او ارفع انت مثال للتعديل عليه
سورس كود برنامج محاسبة ومبيعات احترافي ومتكامل- قم بالاطلاع على البرنامج
11-03-22, 07:01 PM (آخر تعديل لهذه المشاركة : 11-03-22, 07:50 PM {2} بواسطة ابو انس.)
انت لم تقل لي هل جربت الكود الذي في ردي
انت تقول ان هناك مشكلة ثم تقول ان الكود الخاص بك يعمل بشكل جيد .... ماذا اذا كانت المشكلة في الكود
ارفع لنا مثلا لنعدل عليه
سورس كود برنامج محاسبة ومبيعات احترافي ومتكامل- قم بالاطلاع على البرنامج