[hesham77a]

(02-05-18, 01:16 PM)ملهمـ كتب : الدرس التاسع : شاشة المشتريات (4) الانتهاء من شاشة المشتريات





المشروع بالكامل :
https://up.top4top.net/downloadf-852q4vue1-zip.html

السلام عليكم 
يا أخ ملهم ارجوا ان تسمح لي باضافة هذه التعديلة في شاشة البحث عن فاتورة المشتريات SEARCH_BUYBILL_FAT
هل هي جيدة او لا

كود :

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
       If ComboBox1.SelectedIndex = 0 Then
           Dim DT As New DataTable
           Dim DA As New SqlClient.SqlDataAdapter
           DT.Clear()
           DA = New SqlClient.SqlDataAdapter("SELECT * FROM BUYBILL WHERE STATE ='TRUE' AND  BUYCODE = '" & TextBox1.Text & "'", SqlConn)
           DA.Fill(DT)
           DataGridView1.DataSource = DT.DefaultView
       End If
       If ComboBox1.SelectedIndex = 1 Then
           Dim DT As New DataTable
           Dim DA As New SqlClient.SqlDataAdapter
           DT.Clear()
           DA = New SqlClient.SqlDataAdapter("SELECT * FROM BUYBILL WHERE  STATE ='TRUE' AND IMPORTERNAME LIKE'" & TextBox1.Text & "%'", SqlConn)
           DA.Fill(DT)
           DataGridView1.DataSource = DT.DefaultView
       End If
       If TextBox1.Text = "" Then
           FILL_DGV(DataGridView1, "SELECT * FROM BUYBILL WHERE STATE ='TRUE'  ORDER BY BUYCODE")
       End If
   End Sub