السلام عليكم
انا حاولت اني اظهر البيانات على شكل شجرة في الداتا سيت بس للاسف ما ضبطة معي ابد مع اني اطبق الخطوات مضبوط واللي هي عندي داتا سيت فيها جدولين ربطتهم بعلاقه وربطتهم مع الداتا جريد بس ما في فايده وهذا الكود ياريت اذا في تعديل او في احد عنده مثال يعطيني اياه
Dim DS As New DataSet
SQL = "SELECT PriceSellName FROM PiecesSellEquation"
Try
Dim MyAdapter As New SqlDataAdapter(SQL, MyCon)
MyAdapter.Fill(DS, "Tb1") 'تخزين المعلومات في MyDataSet
Catch ex As OleDb.OleDbException
MsgBox(ex.Message, MsgBoxStyle.Critical Or MsgBoxStyle.MsgBoxRight Or MsgBoxStyle.MsgBoxRtlReading, "خطاء في حفظ البيانات")
Exit Sub
End Try
SQL = "SELECT * FROM PiecesSellPrice"
Try
Dim MyAdapter As New SqlDataAdapter(SQL, MyCon)
MyAdapter.Fill(DS, "Tb2") 'تخزين المعلومات في MyDataSet
Catch ex As OleDb.OleDbException
MsgBox(ex.Message, MsgBoxStyle.Critical Or MsgBoxStyle.MsgBoxRight Or MsgBoxStyle.MsgBoxRtlReading, "خطاء في حفظ البيانات")
Exit Sub
End Try
Dim rel As New DataRelation("R1", DS.Tables(0).Columns("PriceSellName"), DS.Tables(1).Columns("PriceSellName"))
DS.Relations.Add(rel)
dd.DataSource = DS
dd.DataMember = "Tb1"