تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
المطلوب مجموع الديون السابقة للعميل نفسه المختار في combox1
#1
السلام عليكم اخواني
الكود يظهر  عند اختار اسم عميل من  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
الرد }}}
تم الشكر بواسطة:
#2
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 
الرد }}}
تم الشكر بواسطة: الدريساوي
#3
(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 
مشكور اخي العزيز جزاك الله خيرا  هذا مجموع الديون السابقة ومنها نجمع مع الحالي نحصل على مجموع الكلي الديون .
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف ارسل مجموع 3 تكست بوكس إلى واحد بالترتيب ؟ أبووسم 3 330 18-12-23, 05:17 PM
آخر رد: أبووسم
  [سؤال] كود معرفة العدد المطلوب للصفحات(هل هو صحيح؟ ام يحتاج تعديل؟) سعود 6 832 02-05-23, 09:21 PM
آخر رد: Taha Okla
  إستخدام CheckBox لتعطيل أو تفعيل مجموع الأدوات YANNOURI 3 436 17-04-23, 04:49 AM
آخر رد: Taha Okla
  [VB.NET] ارجو المساعده مرفق سورس كود البرنامج فى المطلوب المساعده فيه hanyeltnen 2 611 04-02-23, 01:30 AM
آخر رد: aljzazy
  [مثال] حساب عدد الصفوف، و مجموع حقل محدد من الجدول HUNTER25 3 586 22-12-22, 05:45 PM
آخر رد: HUNTER25
  [سؤال] كيفية حساب مجموع عدة اوقات asmarsou 2 674 25-11-22, 02:11 AM
آخر رد: asmarsou
  حقل مجموع في كريستال ريبورت ali_ahmed12 2 454 07-10-22, 07:57 PM
آخر رد: ali_ahmed12
Sad برنامج الديون Kian Tech 18 10,524 01-12-21, 10:45 AM
آخر رد: webthamer
Heart [سؤال] المطلوب كود فيجوال VB لجعل TEXTBOX تساوي datagridview عند الضغط bilgacim 5 1,454 15-08-21, 12:15 AM
آخر رد: ابراهيم ايبو
  هل ممكن أضع pdf في البرنامج نفسه..يقدر المستخدم يقرأه فقط عند فتح البرنامج؟ Alziny 2 1,127 16-02-21, 11:30 PM
آخر رد: Alziny

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم