08-07-22, 09:37 AM
(آخر تعديل لهذه المشاركة : 08-07-22, 09:40 AM {2} بواسطة أبو خالد الشكري.)
جرب أن تستعمل الكود الذي عدلته لك !
كود :
Public Sub BuyBillFullSearch()
Dim dt As New DataTable
Dim adapter1 As New SqlDataAdapter
adapter1 = New SqlDataAdapter("select * From BuyDetailsView where (BuyDetailDate between '" & RePay.Date1.Value.ToString("yyyy-MM-dd") & "' And '" & RePay.Date2.Value.ToString("yyyy-MM-dd") & "')", sqlcon)
Dim adapter2 As New SqlDataAdapter
adapter2 = New SqlDataAdapter("select * From BuyDetailsView where BuyDetailBuyId = " & RePay.TxtID.Text & "", sqlcon)
dt.Clear()
If RePay.CKid.Checked = False And RePay.CKBillNo.Checked = False And RePay.CKsupplier.Checked = False And RePay.CKitem.Checked = False Then
adapter1.Fill(dt)
RePay.DGCReBuy.AutoGenerateColumns = False
RePay.DGCReBuy.DataSource = dt
ElseIf RePay.CKid.Checked = True Then
adapter2.Fill(dt)
RePay.DGCReBuy.AutoGenerateColumns = False
RePay.DGCReBuy.DataSource = dt
End If
End Sub