تعديل على أكواد العمليات بالفورم Frm_Edite

كود :
 Sub Show_data()

        DataGridView1.Rows.Clear()



        DT.Clear()

        Dim Adp As New OleDbDataAdapter("SELECT Id , SerialCode , ComboBox1 , PriceUnite , SumChecked , SubTotal , Charges , Discount , FullTotal , StateChecked1 , StateChecked2 , StateChecked3 from Table1 Where SerialCode = '" & HOME.TextCode.Text & "'", Conne)

        Adp.Fill(DT)

        If DT.Rows.Count = 0 Then

            MessageBox.Show("عفواً  ..  لم يتم العثور على طلبية تحت هذا الرقم", " تأكيد", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1)

            Exit Sub

        Else

            TextId.Text = Convert.ToInt32(DT.Rows(0).Item("Id"))

            TextCode.Text = Convert.ToString(DT.Rows(0).Item("SerialCode"))

            ComboBox1.Text = Convert.ToString(DT.Rows(0).Item("ComboBox1"))

            TextPriceUnite.Text = Convert.ToDecimal(DT.Rows(0).Item("PriceUnite"))

            TextSumChecked.Text = Convert.ToInt32(DT.Rows(0).Item("SumChecked").ToString)

            TextSubTotal.Text = Convert.ToDecimal(DT.Rows(0).Item("SubTotal").ToString)

            TextCharges.Text = Convert.ToDecimal(DT.Rows(0).Item("Charges").ToString)

            TextDiscount.Text = Convert.ToDecimal(DT.Rows(0).Item("Discount").ToString)

            TextFullTotal.Text = Convert.ToDecimal(DT.Rows(0).Item("FullTotal").ToString)

            CheckBox1.Checked = Convert.ToBoolean(DT.Rows(0).Item("StateChecked1").ToString)

            CheckBox2.Checked = Convert.ToBoolean(DT.Rows(0).Item("StateChecked2").ToString)

            CheckBox3.Checked = Convert.ToBoolean(DT.Rows(0).Item("StateChecked3").ToString)



            '========== تفاصيل الفاتورة ===========







            Dim DA = New OleDbDataAdapter("select ProductID , ProductBarcode , ProductName , ProductPrice from Table2 where SerialCode = '" & HOME.TextCode.Text & "'", Conne)

            Dim DS As New DataSet

            DS = New DataSet

            DA.Fill(DS)

            DT = DS.Tables(0)

            For I = 0 To DT.Rows.Count - 1



                DataGridView1.Rows.Add()

                DataGridView1.Rows(I).Cells("ProductID").Value = DT.Rows(I).Item("ProductID")

                DataGridView1.Rows(I).Cells("ProductBarcode").Value = DT.Rows(I).Item("ProductBarcode")

                DataGridView1.Rows(I).Cells("ProductName").Value = DT.Rows(I).Item("ProductName")

                DataGridView1.Rows(I).Cells("ProductPrice").Value = DT.Rows(I).Item("ProductPrice")

            Next

       



            Dim SUMDATAGRIDVIEW As Decimal = 0.0

            For i As Integer = 0 To DataGridView1.Rows.Count - 1

                SUMDATAGRIDVIEW = SUMDATAGRIDVIEW + DataGridView1.Rows(i).Cells("ProductPrice").Value

            Next

            TextSumDatagrid.Text = SUMDATAGRIDVIEW



        End If







    End Sub