اخوانى البحث والMaster Details

السلام عليكم

لقد توصلت مؤخرا لحل مشكل البحث التى كانت تواجهنى والتى تخص Currancy Manager

وأتمنى أن يفيدكم هذا الحل وانا مستعد لأى استفسارات

Dim vue As New DataView(DsWakf.TblWakf)

vue.Sort = "WakfCode"

Dim intIndex As Integer = vue.Find(SearchKeyN)

If intIndex = -1 Then

Console.WriteLine("Row not found!")

Else

CmWakf.Position = intIndex

End If

حيث DsWakf هو اسم الداتا ست

TblWakf هو اسم الجدول داخل الداتا سيت

WakfCode هو اسم حقل البحث

SearchKeyN متغير يحمل قيمة البحث

CmWakf هو "Currancy Manager"

السلام عليكم

بالنسبة للسؤال الأول

إذا أردت أن تقوم بربط جدولين في dataSet واحدة فعليك بـ dataRelation

وتكون كالتالي

Dim dr As DataRelation
        dr = New DataRelation("NameOfDataRelation", _
        ds.Tables("ParentTable").Columns("ID"), _
        ds.Tables("ChildTable").Columns("ID"))
        ds.Relations.Add(dr)

أو عن طريق الـ design time بحيث تقوم بربط العلاقة بينهما في الـ dataSet

طريقة التحديث قم بتحديث الجدول الأول (الأب) ثم الابن أو الجدول التالي

شاهد هذا المثال

Dim ChangeDS As DataSet
        Me.BindingContext(ds, "Customer").EndCurrentEdit()
        ChangeDS = CType(ds.GetChanges, MultiTables.DSCutomOrder)
        If (Not (ChangeDS) Is Nothing) Then
            Try
                              CustomerDA.Update(ChangeDS)
                ds.Merge(ChangeDS)
                ds.AcceptChanges()
                Me.btnUpdateCars.Enabled = True
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        End If

قم بإنشاء dataSet جديدة ثم قم بإقاف التحديث لـ dataset الحالية عن

طريق EndCurrentEdit ثم قم بأخذ القيم الحالية في الـ dataSet الجديدة عن طريق

GetChanges ثم قم

بتحديث البيانات في القاعدة بإستخدام dataAdapter

لابد أن يكون لديك عنصرين كـ dataAdapters الأول للأب و الثاني للإبن

سيتم في الأول تحديث قاعدة البيانات عن طريق تمرير الـ dataSet الجديدة

ثم ستقوم بعملية الـ Marge لضم البيانات في الـ dataSet الجديدة في الـ dataSet القديمة

ثم ستنادي السلوك AcceptChanges لـ dataSet القديمة

وعلى هذا سيتم حفظ الـ primaryKey في البيانات فعند إضافتك أو تحريرك

لان تظهر لك هذه الرسالة وأجعل هذا التحديث في زر ثم تحديث الجدول ذو العلاقة

في زر أخر بنفس الشكل

السلام عليكم

السلام عليكم

ممكن يا اخى تضيف مثال بسيط عن عملية التحديث Master Details

بس Child يكون DATA GRID وParentTable يكون txt عادى

up

Mohamed_ali كتب:

السلام عليكم

ممكن يا اخى تضيف مثال بسيط عن عملية التحديث Master Details

بس Child يكون DATA GRID وParentTable يكون txt عادى

اضم صوتي لصوتك ، ونحن في انتظار الرد على VB 2005 ....