منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
المطلوب مجموع الديون السابقة للعميل نفسه المختار في combox1 - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : المطلوب مجموع الديون السابقة للعميل نفسه المختار في combox1 (/showthread.php?tid=23293)



المطلوب مجموع الديون السابقة للعميل نفسه المختار في combox1 - الدريساوي - 12-01-18

السلام عليكم اخواني
الكود يظهر  عند اختار اسم عميل من  ComboBox1   يظهر اخر قائمة للديون السابقة  من جدول فيه اسم العملاء والديون ويظهرها في  text box18 الديون .
 الجدوال Invoices المبيعات
حقل  اسم العميل   EmployeeName
حقل الديون  invblan

المطلوب مجموع الديون السابقة للعميل نفسه المختار في ComboBox1+ الحالية في text box ثاني .... تقريبا مثل قائمة اجور الكهرباء
الكود
كود :
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim sqlQRY As String = "SELECT * FROM Invoices WHERE EmployeeName = '" & ComboBox1.Text & "'"
        Try
            With objconn
                If .State = ConnectionState.Open Then .Close()
                .Open()
            End With

            Dim da As Common.DbDataAdapter = New OleDbDataAdapter(sqlQRY, objconn)
            Dim ds As DataSet = New DataSet
            da.Fill(ds, "EmployeeName")
            Dim dt As DataTable = ds.Tables("EmployeeName")
            Dim row As DataRow
            For Each row In dt.Rows
                TextBox18.Text = row("invblan")
                
            Next row


        Catch ex As Common.DbException
            MsgBox("Error: " & ex.ToString & vbCrLf)
        Finally
            objconn.Close()
        End Try
       
    End Sub



RE: المطلوب مجموع الديون السابقة للعميل نفسه المختار في combox1 - طالب برمجة - 12-01-18

PHP كود :
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.ObjectByVal e As System.EventArgsHandles ComboBox1.SelectedIndexChanged
    
Try
        
TextBox18.Clear()
        If 
ComboBox1.Text "" Then Return
        
Me.Cursor Cursors.WaitCursor

        Dim cm 
As New OleDbCommand("SELECT SUM(invblan) FROM Invoices WHERE EmployeeName=@EmpName"objconn)
        
cm.Parameters.AddWithValue("@EmpName"ComboBox1.Text)

        If 
objconn.State <> ConnectionState.Open Then objconn.Open()
        
TextBox18.Text cm.ExecuteScalar

    
Catch ex As Common.DbException
        MsgBox
("Error: " ex.ToString vbCrLf)
    Finally
        
objconn.Close()
        
Me.Cursor Cursors.Default
    
End Try
End Sub 



RE: المطلوب مجموع الديون السابقة للعميل نفسه المختار في combox1 - الدريساوي - 13-01-18

(12-01-18, 08:20 PM)طالب برمجة كتب :
PHP كود :
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.ObjectByVal e As System.EventArgsHandles ComboBox1.SelectedIndexChanged
    Try
        TextBox18
.Clear()
 
       If ComboBox1.Text "" Then Return
 
       Me.Cursor Cursors.WaitCursor

        Dim cm 
As New OleDbCommand("SELECT SUM(invblan) FROM Invoices WHERE EmployeeName=@EmpName"objconn)
 
       cm.Parameters.AddWithValue("@EmpName"ComboBox1.Text)

 
       If objconn.State <> ConnectionState.Open Then objconn.Open()
 
       TextBox18.Text cm.ExecuteScalar

    Catch ex 
As Common.DbException
        MsgBox
("Error: " ex.ToString vbCrLf)
 
   Finally
        objconn
.Close()
 
       Me.Cursor Cursors.Default
 
   End Try
End Sub 
مشكور اخي العزيز جزاك الله خيرا  هذا مجموع الديون السابقة ومنها نجمع مع الحالي نحصل على مجموع الكلي الديون .