[عبد العزيز البسكري]

للمشاركة .. و طبعا هناك العديد من الطرق المتنوعّة

على مستوى الموديل العام .. لتعبئة الكومبوبوكس و الداتا جريد فيو تباعا ..

كود :

   Public Sub Globale_Fill_ComboBox_List_From_Table(CmBox As ComboBox, TableName As String, DisplayValue As String)
       CmBox.Items.Clear()
       Dim Adp As New OleDb.OleDbDataAdapter("SELECT DISTINCT * From " & TableName & " Order By " & DisplayValue, Conne_2020)
       Dim Ds As New DataSet
       Adp.Fill(Ds)
       Dim Dt = Ds.Tables(0)
       For I = 0 To Dt.Rows.Count - 1
           CmBox.Items.Add(Dt.Rows(I).Item(DisplayValue))
       Next
   End Sub

كود :

  Public Sub Global_Fill_DataGridView(My_DatagridView As DataGridView, Sql As String)
       My_DatagridView.DataSource = Nothing
       Dim Adp = New OleDb.OleDbDataAdapter(Sql, Conne_2020)
       Dim Ds = New DataSet
       Adp.Fill(Ds)
       Dim Dt = Ds.Tables(0)
       My_DatagridView.DataSource = Dt.DefaultView
  End Sub

الاستدعاء بالفورم لود كمثال ..

كود :

Call Globale_Fill_ComboBox_List_From_Table(ComboBox1, "TBL_ITEMS", "ITEMS_Name")

كود :

       Call Global_Fill_DataGridView(DataGridView1, "SELECT ITEMS_Id , ITEMS_Code , ITEMS_Barcode , ITEMS_Name , ITEMS_Category , ITEMS_Prix_Achat , ITEMS_Prix_Vente From TBL_ITEMS")

تحياتي