[العيدروس]

السلام عليكم و رحمة الله
اخواني كيف يمكن ايجاد طريقة حسابية مناسبة حاولت لكن لم تضبط معي أنا شرحت العمليات على الفورم و بارك الله فيكم جميعا

[princelovelorn]

وعليكم السلام ورحمة الله وبركاته

كود :

 Private Sub TextBox9_TextChanged(sender As Object, e As EventArgs) Handles TextBox9.TextChanged
       TextBox10.Text = (Val(TextBox4.Text) + Val(TextBox7.Text) + Val(TextBox8.Text) - Val(TextBox9.Text))
   End Sub

[Zuhare]

وعليكم السلام ورحمة الله وبركاته

كود :

Public Class Form1
   Dim dt As New DataTable
   Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load

       dt.Columns.Add("ID")
       dt.Columns.Add("itemName")
       dt.Columns.Add("itemPrice")

       DataGridView1.DataSource = dt

   End Sub
   Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
       dt.Rows.Add(TextBox1.Text, TextBox2.Text, TextBox3.Text)
       SUMME()
   End Sub

   Private Sub DataGridView1_CellValueChanged(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellValueChanged
       SUMME()
   End Sub
   Private Sub DataGridView1_RowsRemoved(ByVal sender As Object, ByVal e As DataGridViewRowsRemovedEventArgs) Handles DataGridView1.RowsRemoved
       SUMME()
   End Sub
   Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles ComboBox1.SelectedIndexChanged
       SUMME()
   End Sub
   Private Sub CheckBox1_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged
       SUMME()
   End Sub
   Private Sub TextBox6_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox6.TextChanged
       SUMME()
   End Sub
   Private Sub TextBox8_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox8.TextChanged
       SUMME()
   End Sub
   Private Sub TextBox9_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox9.TextChanged
       SUMME()
   End Sub

   Private Sub SUMME()
       Dim SUMDATAGRIDVIEW As Decimal = 0.0
       For i As Integer = 0 To DataGridView1.Rows.Count - 1
           SUMDATAGRIDVIEW = SUMDATAGRIDVIEW + DataGridView1.Rows(i).Cells("itemPrice").Value
       Next
       TextBox4.Text = SUMDATAGRIDVIEW

       Dim SUMComboBox1 As Decimal = 0.0
       If ComboBox1.SelectedIndex = 0 Then
           SUMComboBox1 = "1000.10"
       ElseIf ComboBox1.SelectedIndex = 1 Then
           SUMComboBox1 = "1500.20"
       ElseIf ComboBox1.SelectedIndex = 2 Then
           SUMComboBox1 = "2000.30"
       End If
       TextBox5.Text = SUMComboBox1.ToString()

       Dim SUMCHECKEDCHECKBOX As Decimal = 0.0
       Dim checks() As CheckBox = {CheckBox1, CheckBox2, CheckBox3}
       SUMCHECKEDCHECKBOX = (From cb In checks Where cb.Checked Order By cb.Text Select cb.Checked).Count
       TextBox6.Text = SUMCHECKEDCHECKBOX

       Dim SUBTOTAL As Decimal = 0.0
       SUBTOTAL = SUMComboBox1 * SUMCHECKEDCHECKBOX
       TextBox7.Text = SUBTOTAL

       Dim CHARGES As Decimal = 0.0
       CHARGES = Val(TextBox8.Text)

       Dim DISCOUNT As Decimal = 0.0
       DISCOUNT = Val(TextBox9.Text)

       Dim FULLTOTAL As Decimal = 0.0
       FULLTOTAL = (SUMDATAGRIDVIEW + SUBTOTAL + CHARGES) - DISCOUNT
       TextBox10.Text = FULLTOTAL
   End Sub
End Class

[العيدروس]

جمعة مباركة الأخ Zuhare
أشكرك جزيل الشكر و بارك الله فيك و رزقك من حيث لا تحتسب ان شاء الله
فقط لو تكرمت بالتعديل
الكومبوبكس 1 فقط لجلب قيمة و وضعها بالتاكست بكس 5 
عندما أختار من الكومبوبوكس 1 فإن قيمة التاكست بكس رقم 7 لا تتغير إلا بعد الإختيار من التشيك بكس 1 أو 2 أو 3 
لأني كتبت أن تاكست بوكس 7 تساوي تاكست بكس 5 * تاكست بكس 6
يعني لو اخترت اسم من الكومبوبوكس 1 و لم اضغط على أي واحد من التشيك بكس هنا لا تتغير قيمة تكست بكس 7
و بارك الله فيك

[العيدروس]

بارك الله فيك و في والديك و هو بالذات يشتغل مضبوط الف الف شكر لك

[العيدروس]

السلام عليكم
اخ Zuhare ارجو منك المعذرة اذا اثقلت عليك لكن صدقني الله غالب
فقط بعد اذنك غيرت طريقة ملء الكومبوبوكس من قاعدة البيانات بدلا من ملؤها يدويا و لم اعرف كيف اغير بالأكواد 
لو سمحت القاء نظرة الله يحفظك اخي الكريم

[Zuhare]

كود :

   Private Sub Populate_Category()
       ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
       Dim da As New OleDbDataAdapter("select CategoryName , CategoryValue From Category order by CategoryName Asc", conn)
       Dim Dt As New DataTable
       da.Fill(Dt)
       ComboBox1.DataSource = Dt
       ComboBox1.DisplayMember = "CategoryName"
       ComboBox1.ValueMember = "CategoryValue"
       ComboBox1.SelectedIndex = -1
   End Sub

كود :

   Private Sub SUMME()
       Dim SUMDATAGRIDVIEW As Decimal = 0.0
       For i As Integer = 0 To DataGridView1.Rows.Count - 1
           SUMDATAGRIDVIEW = SUMDATAGRIDVIEW + DataGridView1.Rows(i).Cells("itemPrice").Value
       Next
       TextBox4.Text = SUMDATAGRIDVIEW

       Dim SUMComboBox1 As Decimal = 0.0
       If IsNumeric(ComboBox1.SelectedValue) Then
           SUMComboBox1 = ComboBox1.SelectedValue
       End If
       TextBox5.Text = SUMComboBox1.ToString()

       Dim SUMCHECKEDCHECKBOX As Decimal = 0.0
       Dim checks() As CheckBox = {CheckBox1, CheckBox2, CheckBox3}
       SUMCHECKEDCHECKBOX = (From cb In checks Where cb.Checked Order By cb.Text Select cb.Checked).Count
       TextBox6.Text = SUMCHECKEDCHECKBOX

       Dim SUBTOTAL As Decimal = 0.0
       SUBTOTAL = SUMComboBox1 * SUMCHECKEDCHECKBOX
       TextBox7.Text = SUBTOTAL

       Dim CHARGES As Decimal = 0.0
       CHARGES = Val(TextBox8.Text)

       Dim DISCOUNT As Decimal = 0.0
       DISCOUNT = Val(TextBox9.Text)

       Dim FULLTOTAL As Decimal = 0.0
       FULLTOTAL = (SUMDATAGRIDVIEW + SUBTOTAL + CHARGES) - DISCOUNT
       TextBox10.Text = FULLTOTAL
   End Sub

---

اكتفي ب SUMME في ComboBox1_SelectedIndexChanged

كود :

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        SUMME()
    End Sub

[العيدروس]

الله يبارك فيك يا رب و يرزقك و يسعدك و يحفظك باذن الله كله مضبوط الله يسترك اخي Zuhare