[kslawy]

قصد سعود تضع الكود اللي تملء به الكمبوبوكس في إجراء مستقل كالتالي:

كود :

Sub FillComboBox()

  Dim Dsview As New DataView
  Dim FournisseursBindingSource As New BindingSource()
  FournisseursBindingSource.DataSource = Dsview
  ComboBox1.DataSource = FournisseursBindingSource
  ComboBox1.DisplayMember = "Société"
  ComboBox1.ValueMember = "ID"

End Sub

تضع الاجراء FillComboBox عند تحميل الفورم .

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       FillComboBox()
    End Sub

بالنسبة لتحديث البيانات دون الاضطرار لغلق النموذج ضع زر أمر بجانب أداة الكمبوبوكس سمه (تحديث) في حدث الضغط الخاص بالزر تضع أيضاً الإجراء FillComboBox


****
***
**
*