[المهنا]

جميل جدا هذا الفورم ونتائج البحث في جدول و فرت علينا البحث مسبق عن طريقة للبحث

و شاكر جهودك و لكن ليس هذا ما اقصد هذا هو القصد

هذه قائمة كل الكتب لا حظ وجود أربعة كتب بعنوان (الكامل في التاريخ)



هذا عند اختيار الكتاب الأول من كتب (الكامل في التاريخ ) لاحظ البيانات



و هذا عند اختيار الكتاب الثاني من كتب (الكامل في التاريخ )

لاحظ انها نفس البيانات رغم ان الكتابين مختلفين

اذا اظهرتها في جدول داتا جريد تظهر مختلفة و لكنها في الكامبو بوكس
لا يفصلها وإنما يعمم بيانات أول كتاب لكل الكتب



تم استبدال المثال السابق بمثال اخر لتلافي المشكلة في الفتح
فورم واحد فقط أتمني مشاهدة المرفق

أنا اريد البيانات في الكامبو بوكس وليس في جدول لان هذا الفورم
فورم إدخال وتعديل بيانات للمستخدم الرئيسي وليس للعرض و البحث للزوار

[vbnet]

.....

كود :

Public Sub Cmb()

    ComboBox1.Items.Clear()

    ' إنشاء جدول برمجي
    Dim table As New DataTable
    table.Columns.Add("id", GetType(Integer))
    table.Columns.Add("f1", GetType(String))


    ' كود اضافة البيانات إلى الحدول البرمجي
    For i As Integer = 0 To DataSet1.Tables("Tab").Rows.Count - 1

        Dim a As String = DataSet1.Tables("Tab").Rows(i).Item("f1")
        ' كود محاذاة الى الوسط
        a = a.PadLeft(ComboBox1.DropDownWidth * 15 / 100)

        table.Rows.Add(DataSet1.Tables("Tab").Rows(i).Item("id"), a)

    Next

    ' الربط مع الجدول البرمجي
    ComboBox1.DataSource = table
    ComboBox1.ValueMember = "id"
    ComboBox1.DisplayMember = "f1"

End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

    Dim DataAdapter As New OleDbDataAdapter("SELECT * FROM Workers111111 WHERE id = " & ComboBox1.SelectedValue, con)

    DataSet1.Clear()
    DataAdapter.Fill(DataSet1, "Tab")

    LoadPhoto()

End Sub

.....

[المهنا]

(13-07-14, 10:28 PM)vbnet كتب : .....

كود :

Public Sub Cmb()

    ComboBox1.Items.Clear()

    ' إنشاء جدول برمجي
    Dim table As New DataTable
    table.Columns.Add("id", GetType(Integer))
    table.Columns.Add("f1", GetType(String))


    ' كود اضافة البيانات إلى الحدول البرمجي
    For i As Integer = 0 To DataSet1.Tables("Tab").Rows.Count - 1

        Dim a As String = DataSet1.Tables("Tab").Rows(i).Item("f1")
        'كود محاذاة الى الوسط مع الاضافة
        a = a.PadLeft(ComboBox1.DropDownWidth * 15 / 100)

        table.Rows.Add(DataSet1.Tables("Tab").Rows(i).Item("id"), a)

    Next

    ' الربط مع الجدول البرمجي
    ComboBox1.DataSource = table
    ComboBox1.DisplayMember = "f1"
    ComboBox1.ValueMember = "id"


End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

    On Error Resume Next

    Application.DoEvents()


    Dim DataAdapter As New OleDbDataAdapter("SELECT * FROM Workers111111 WHERE id = " & ComboBox1.SelectedValue, con)

    con.Open()
    DataSet1.Clear()
    DataAdapter.Fill(DataSet1, "Tab")
    con.Close()

    LoadPhoto()

End Sub

.....

الف الف مليون شكر تم حل المشكلة بمجهودكم
وجعلها الله في ميزان حسناتكم

تحياتي