12-01-18, 07:06 PM
السلام عليكم اخواني
الكود يظهر عند اختار اسم عميل من ComboBox1 يظهر اخر قائمة للديون السابقة من جدول فيه اسم العملاء والديون ويظهرها في text box18 الديون .
الجدوال Invoices المبيعات
حقل اسم العميل EmployeeName
حقل الديون invblan
المطلوب مجموع الديون السابقة للعميل نفسه المختار في ComboBox1+ الحالية في text box ثاني .... تقريبا مثل قائمة اجور الكهرباء
الكود
الكود يظهر عند اختار اسم عميل من 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