13-07-14, 12:06 AM
هذا السب لإضافة حقل عناوين الكتب للكامبو بوكس
[/code]
وهنا لربط اسم الكتاب في الكامبو بباقي بيانات الكتاب في حدث SelectedIndexChanged
المشكلة هي انني عندما احمل الكامبو بوكس بارقام السجلات يمشي كويس حتى لو كرر عنوان الكتاب الف مرة
أما أذا وضعت به عناوين الكتاب وكان عندي تكرار لنفس عنوان الكتاب فانه يجعلها ببيانات واحدة
يعني لو ادخلت كتاب اسمه
الكامل في التاريخ لابن الأثير طبعة مصر
ثم
الكامل في التاريخ لابن الأثير طبعة بيروت
ثم
الكامل في التاريخ لابن الأثير طبعة سوريا
يعرض في الكامبو الثلاثة الكتب كلها
الكامل في التاريخ
الكامل في التاريخ
الكامل في التاريخ
و لكن المشكلة عند التنقل بينها يعرض لي فقط بيانات الكتاب الأول
الكامل في التاريخ لابن الأثير طبعة مصر
رغم أن الموجود ثلاثة كتب وعندي التنقل بينها الثلاثة كلها تعطيني بيانات الكتاب الأول
احساسي يقول أن الخطأ في هذه الجملة
FROM Workers WHERE f1 LIKE '" & ComboBox1.Text.Trim & "'", con)
كود :
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)