[mohamedgadain61]

السلام عليكم اريد تعديل على الكود بالأسفل عندما يقوم بتعبئة كومبو بوكس من قاعدة بيانات ياخذ الكثير من الوقت علما بان التعبئة تكون ل 102الف حقل   ...  مرفق لكم المثال



Using sda As OleDbDataAdapter = New OleDbDataAdapter("Select Cust_Id, Cust_Phone FROM Customers", Con)
            Con.Open()
            'Fill the DataTable with records from Table.
            Dim dt As DataTable = New DataTable()
            sda.Fill(dt)
            'Insert the Default Item to DataTable.
            Dim row As DataRow = dt.NewRow()
            row(0) = 0
            row(1) = "Please Select"
            dt.Rows.InsertAt(row, 0)
            'Assign DataTable as DataSource.
            ComboBox1.DataSource = dt
            ComboBox1.DisplayMember = "Cust_Phone"
            ComboBox1.ValueMember = "Cust_Id"
        End Using
        Con.Close()