عرض جدولين في data grid

انا اقترح عليك تستخدمين

اثنين داتا غريد

الاولى فيها اسماء الموردين

ولما يسوي يختار row معين من الداتاغيرد الاولى

تتعبى الداتا غريد الثانية

بارقام هواتف المورد

هذي فكرة

وحلها موجود عندي

ReD^eYeS كتب:

انا اقترح عليك تستخدمين

اثنين داتا غريد

الاولى فيها اسماء الموردين

ولما يسوي يختار row معين من الداتاغيرد الاولى

تتعبى الداتا غريد الثانية

بارقام هواتف المورد

هذي فكرة

وحلها موجود عندي

←

أرجو أن تعرض الكود الخاص بالحل ولك جزيل الشكر

هذا مثال هو المثال والداتابيز على اكسس

...........

في الحدث load للفورم

نعبئ الداتا غريد الاولى باسماء الموردين

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim c As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=SAS.mdb"
        Dim con As New OleDb.OleDbConnection(c)
        Try

            con.Open()
            Dim adapt As New OleDb.OleDbDataAdapter("Select * from Vendor", con)
            Dim dt As New DataTable()
            adapt.Fill(dt)
            DataGrid1.SetDataBinding(dt, "")
            con.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            con.Close()
        End Try
        

    End Sub

في الحدث Click للداتاجريد الاولى عندما يختار المستخدم صف معين من الموردين

نكتب هذا الكود

 Private Sub DataGrid1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.Click
        Dim c As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=SAS.mdb"
        Dim con As New OleDb.OleDbConnection(c)
        Try

            Dim id As Integer = DataGrid1.Item(DataGrid1.CurrentRowIndex, 0)
            Dim sql As String = "select telephone from telephone where vid=" & id

            con.Open()
            Dim adapt As New OleDb.OleDbDataAdapter(sql, con)
            Dim dt As New DataTable()
            adapt.Fill(dt)
            DataGrid2.SetDataBinding(dt, "")

        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            con.Close()
        End Try
       
    End Sub

وهذا المثال مرفق

وبالتوفيق

.............

والله أعلم

WindowsApplication40.zip

الله يعطيك العافية

-waf

بسم الله الرحمن الرحيم

=============

الأخ الكريم ReD^eYeS

هل من الممكن عرض ذلك فى داتا جريد واحدة مثل الداتا جريد للاكسيس

بحيث يكون فى النهاية أمام كل مورد علامة + إذا قمت بالضغط عليها تظهر سجلات أرقام التليفونات

تقبلوا تحياتى

والله الظاهر ان فيه طريقة

بس انا مااعرفها

حط سؤالك هذا في موضوع منفصل وان شاء الله الاخوان مايقصرون معك

اذا انت مستخدم داتا ست في البرنامج لاستضافة البيانات

اعمل علاقة بين الجدولين في الداتا ست بين الجدولين بواسطة رقم المورد

واربط الداتا ست بالداتا جريد

بهذي الطريقة بتطلع البيانات بداتا جريد وحدة

اي كل موظف وجنبة علاقة + تعرض ارقام الهواتف

(لم افهم المطلوب في اخر 3 اسطر)

لذلك اجبتك على الباقي

السلام عليكم

عملت زي الفكرة اللي قلت عليها وتطلع النتائج صحيحة لكن تطلع رسالة في

(run)

تؤشر على

 Dim bookNo As Integer = DG1.Item(DG1.CurrentRowIndex, 0)

الرسالة موجودة في الملف المرفق ....

مالحل؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

error message.doc

بسم الله الرحمن الرحيم

==============

الأخ الكريم ReD^eYeS جزاك الله خيرا وفتح الله على وعليك وعلى المسلمين أجمعين

الأخ الكريم dr.hi جزاك الله خيرا ولكن هل من الممكن توضيح كيفية إنشاء العلاقة بين جدولين موجودين بنفس الداتا ست حيث لم أستطيع عمل ذلك

( بالنسبة للثلاث أسطر الأخيرة فكنت أوضح فقط مرادى من عرض البيانات فى الداتا جريد )

وجزا الله خيرا كل من يقدم مساعدة لأخيه

تقبلوا تحياتى

ادخل على data set view

وذلك بواسطة الزر الأيمن على اسم الداتا ست ثم اختر الأمر data set view

وسيظهر لك جميع الجداول الموجودة بالداتا ست اختر الجدول المطلوب ثم اختار اداة اتوقع اسمها relation(تلقاها في اخر القائمة)

وحدد اسم الجدول الأساسي والجدول التابع له

ثم احفظ العلاقة

وعند عمل رن للبرنامج يظهر شكل + بجانب الموردين..

اذا في شي اضافي اسأل وان شالله تنحل..

هذا مثال بسيط وجده عندي

اتمنى يفيدك

مثال على عرض جدولين في الداتا قريد.rar

بسم الله الرحمن الرحيم

=============

الأخ الكريم dr.hi

جزاك الله خيرا كثيرا وأتمنى لك التوفيق دائما

تقبلوا تحياتى