ربط combobox بصفحه البيانات - نسخة قابلة للطباعة

كود :
Public Class Items

    ' كود إضافة الاصناف

    Public Sub newitems()

        Code_Items()

        ItemBarcode.Text = ""

        ItemCompany.Text = ""

        ItemDate.Value = Now.Date

        ItemEarn.Text = 0

        ItemGroup.Text = ""

        ItemID.Text = mynewIDItems

        ItemLimit.Text = 0

        ItemMaxDiscount.Text = 0

        ItemName.Text = ""

        ItemPlace.Text = ""

        ItemPrice.Text = 0

        ItemQty.Text = 0

        ItemTime.Value = Now

        ItemUser.Text = ""

    End Sub

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

        ' تحميل قؤائم combobox

        ' قائمة المجموعات

        Load_Groups()

        ItemGroup.DataSource = GroupsDT

        ItemGroup.DisplayMember = "GroupName"

        ItemGroup.ValueMember = "GroupName"

        '==================================

        ' قائمة الشركات

        Load_companies()

        ItemCompany.DataSource = companiesDT

        ItemCompany.DisplayMember = "CompanyName"

        ItemCompany.ValueMember = "CompanyID"

        '==================================

        'قائمة المخازن

        Load_places()

        ItemPlace.DataSource = placesDT

        ItemPlace.DisplayMember = "PlaceName"

        ItemPlace.ValueMember = "placeID"

        'تحميل جدول الأصناف

        Load_Items()

        DataGridView1.DataSource = ItemsDT

        newitems()

    End Sub



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        newitems()

    End Sub



    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        ' كود الحفظ الاصناف

        ItemsDT.Rows.Add()

        Dim last As Integer = ItemsDT.Rows.Count - 1

        ItemsDT.Rows(last).Item("ItemBarcode") = ItemBarcode.Text

        ItemsDT.Rows(last).Item("ItemCompany") = ItemCompany.Text

        ItemsDT.Rows(last).Item("ItemDate") = ItemDate.Value

        ItemsDT.Rows(last).Item("ItemEarn") = ItemEarn.Text

        ItemsDT.Rows(last).Item("ItemGroup") = ItemGroup.Text

        ItemsDT.Rows(last).Item("ItemID") = ItemID.Text

        ItemsDT.Rows(last).Item("ItemLimit") = ItemLimit.Text

        ItemsDT.Rows(last).Item("ItemMaxDiscount") = ItemMaxDiscount.Text

        ItemsDT.Rows(last).Item("ItemName") = ItemName.Text

        ItemsDT.Rows(last).Item("ItemPlace") = ItemPlace.Text

        ItemsDT.Rows(last).Item("ItemPrice") = ItemPrice.Text

        ItemsDT.Rows(last).Item("ItemQty") = ItemQty.Text

        ItemsDT.Rows(last).Item("ItemTime") = ItemTime.Value

        ItemsDT.Rows(last).Item("ItemUser") = ItemUser.Text



        Dim Save As New OleDbCommandBuilder(ItemsDA)

        ItemsDA.Update(ItemsDT)

        ItemsDT.AcceptChanges()

        MsgBox("تم حفظ بيانات الصنف بنجاح")

        Load_Items()

        newitems()

    End Sub



    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        'كود تعديل الاصناف 

        Dim pos As Integer = BindingContext(ItemsDT).Position

        ItemsDT.Rows(pos).Item("ItemBarcode") = ItemBarcode.Text

        ItemsDT.Rows(pos).Item("ItemEarn") = ItemEarn.Text

        ItemsDT.Rows(pos).Item("ItemDate") = ItemDate.Value

        ItemsDT.Rows(pos).Item("ItemID") = ItemID.Text

        ItemsDT.Rows(pos).Item("ItemName") = ItemName.Text

        ItemsDT.Rows(pos).Item("ItemGroup") = ItemGroup.Text

        ItemsDT.Rows(pos).Item("ItemTime") = ItemTime.Value

        ItemsDT.Rows(pos).Item("ItemLimit") = ItemLimit.Text

        ItemsDT.Rows(pos).Item("ItemUser") = ItemUser.Text

        ItemsDT.Rows(pos).Item("ItemCompany") = ItemCompany.Text

        ItemsDT.Rows(pos).Item("ItemMaxDiscount") = ItemMaxDiscount.Text

        ItemsDT.Rows(pos).Item("ItemPlace") = ItemPlace.Text

        ItemsDT.Rows(pos).Item("ItemPrice") = ItemPrice.Text

        ItemsDT.Rows(pos).Item("ItemQty") = ItemQty.Text



        Dim Save As New OleDbCommandBuilder(ItemsDA)

        ItemsDA.Update(ItemsDT)

        ItemsDT.AcceptChanges()

        MsgBox("تم تعديل البيانات بنجاح")

        Load_Items()

    End Sub



    Private Sub DataGridView1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.SelectionChanged

        Try

            Dim pos As Integer = BindingContext(ItemsDT).Position

            ItemBarcode.Text = ItemsDT.Rows(pos).Item("ItemBarcode")

            ItemCompany.Text = ItemsDT.Rows(pos).Item("ItemCompany")

            ItemDate.Value = ItemsDT.Rows(pos).Item("ItemDate")

            ItemID.Text = ItemsDT.Rows(pos).Item("ItemID")

            ItemName.Text = ItemsDT.Rows(pos).Item("ItemName")

            ItemEarn.Text = ItemsDT.Rows(pos).Item("ItemEarn")

            ItemTime.Value = ItemsDT.Rows(pos).Item("ItemTime")

            ItemGroup.Text = ItemsDT.Rows(pos).Item("ItemGroup")

            ItemUser.Text = ItemsDT.Rows(pos).Item("ItemUser")

            ItemLimit.Text = ItemsDT.Rows(pos).Item("ItemLimit")

            ItemMaxDiscount.Text = ItemsDT.Rows(pos).Item("ItemMaxDiscount")

            ItemPlace.Text = ItemsDT.Rows(pos).Item("ItemPlace")

            ItemPrice.Text = ItemsDT.Rows(pos).Item("ItemPrice")

            ItemQty.Text = ItemsDT.Rows(pos).Item("ItemQty")

        Catch ex As Exception

        End Try

    End Sub



    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        ' كود حذف الاصناف 

        If MsgBox("هل تريد حذف الصنف؟", MsgBoxStyle.OkCancel, "رسالة تأكيد") = MsgBoxResult.Ok Then

            Dim pos As Integer = BindingContext(ItemsDT).Position

            ItemsDT.Rows(pos).Delete()



            Dim Save As New OleDbCommandBuilder(ItemsDA)

            ItemsDA.Update(ItemsDT)

            ItemsDT.AcceptChanges()

            MsgBox("تم الحذف بنجاح")

            Load_Items()

        Else

        End If

    End Sub



    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        'كود البحث 

        ItemsDT.Clear()

        ItemsDA = New OleDbDataAdapter("select * from Items where ItemName Like'%" & TextBox1.Text & "%'", con)

        ItemsDA.Fill(ItemsDT)

    End Sub

End Class