[المهنا]

(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

.....

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

تحياتي