[المهنا]

هذا السب لإضافة حقل عناوين الكتب للكامبو بوكس

كود :

Public Sub Cmb()
        On Error Resume Next
        ComboBox1.Items.Clear()
        For i As Integer = 0 To DataSet1.Tables("Tab").Rows.Count - 1
            Dim a As String = DataSet1.Tables("Tab").Rows(i).Item("f1")
            ComboBox1.Items.Add(a.PadLeft(ComboBox1.DropDownWidth * 15 / 100))
        Next
    End Sub

[/code]

وهنا لربط اسم الكتاب في الكامبو بباقي بيانات الكتاب في حدث SelectedIndexChanged

كود :

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 f1 LIKE '" & ComboBox1.Text.Trim & "'", con)

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



    End Sub

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

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

يعني لو ادخلت كتاب اسمه

الكامل في التاريخ لابن الأثير طبعة مصر

ثم

الكامل في التاريخ لابن الأثير طبعة بيروت

ثم

الكامل في التاريخ لابن الأثير طبعة سوريا

يعرض في الكامبو الثلاثة الكتب كلها
الكامل في التاريخ
الكامل في التاريخ
الكامل في التاريخ

و لكن المشكلة عند التنقل بينها يعرض لي فقط بيانات الكتاب الأول

الكامل في التاريخ لابن الأثير طبعة مصر

رغم أن الموجود ثلاثة كتب وعندي التنقل بينها الثلاثة كلها تعطيني بيانات الكتاب الأول

احساسي يقول أن الخطأ في هذه الجملة
FROM Workers WHERE f1 LIKE '" & ComboBox1.Text.Trim & "'", con)