تقييم الموضوع :
  • 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 
مشكور اخي العزيز جزاك الله خيرا  هذا مجموع الديون السابقة ومنها نجمع مع الحالي نحصل على مجموع الكلي الديون .
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن كود مجموع ضرب عمودين (هناك صورة مرفقة) sofiane-phy 2 76 , 10:31 AM
آخر رد: sofiane-phy
  مشكلة عند تنصيب البرنامج للعميل تظهر الرسالة هده Alanwalker 9 249 22-10-20, 11:20 PM
آخر رد: kiki
  ي جماعه دلوقتي لما بنقل الداتا للعميل اسم السيرفر بيبقي متغير ف الربط اللي انا عملو م Hosam Ashraf Elwakel 2 250 25-08-20, 02:56 AM
آخر رد: Rabeea Qbaha
Sad كود حذف السجلات المختاره عن طريق (التشيك بوكس ) اسف تم تعديل المطلوب عمور2016 8 577 19-08-20, 10:44 PM
آخر رد: عمور2016
  [VB.NET] المطلوب تثبيته عند العميل اسامه الهرماوي 1 207 19-08-20, 04:41 PM
آخر رد: boudyonline
  [كود] كل المطلوب في الاكسس اسامه الهرماوي 4 724 26-07-20, 02:53 AM
آخر رد: اسامه الهرماوي
  محتاج مثال سورس ... إظهار تنبية لتاريخ معين .. يعني عندما يأتي تاريخ اليوم المطلوب ي mohamedwasef35 4 676 08-03-20, 12:18 PM
آخر رد: aldery
  [مشروع] المطلوب مشروع تقرير فرعي ناجح احمد 9 760 28-02-20, 10:40 PM
آخر رد: alsalamoni
Exclamation [VB.NET] ارغب بنسخة من الفجول استديو لثبيتها للعميل لا تكون كبيرت الحجم ولا يكون بها اي لغات Hosam Ashraf Elwakel 1 350 01-01-20, 05:10 PM
آخر رد: asemshahen5
Sad [سؤال] مشكله عند تسليم المشروع للعميل moha8080 4 638 21-11-19, 03:12 AM
آخر رد: asemshahen5

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


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