[أبو عمر]

جرب هذا اخي وشوف النتيجة

PHP كود :

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        On Error Resume Next
        Conn.Close()
        Conn.Open()
        Dim Cmd2 As New OleDbCommand
        Dim VSalary2 As String
        Cmd2.Connection = Conn
        Cmd2.CommandType = CommandType.Text
        Cmd2.CommandText = "select sum (income)  from tab where (month) like '" & ComboBox1.Text & "' ;"
        VSalary2 = Cmd2.ExecuteScalar()
        '====================
        Dim Cmd3 As New OleDbCommand
        Dim VSalary3 As String
        Cmd3.Connection = Conn
        Cmd3.CommandType = CommandType.Text
        Cmd3.CommandText = "select sum (Discount)  from tab where (month) like '" & ComboBox1.Text & "' ;"
        VSalary3 = Cmd3.ExecuteScalar()
        '==============================

        TextBox1.Text = VSalary2
        TextBox2.Text = VSalary3
        TextBox4.Text = VSalary2 - VSalary3

        Conn.Close()


    End Sub