[أبو خالد الشكري]

كود :

 Public Sub BuyBillFullSearch()

       Dim dt As New DataTable
       Dim adapter As New SqlDataAdapter
       Dim SQL1, SQL2 As String

       SQL1 = "select * From BuyDetailsView where (BuyDetailDate between '" & RePay.Date1.Value.ToString("yyyy-MM-dd") & "' And '" & RePay.Date2.Value.ToString("yyyy-MM-dd") & "')"
       SQL2 = "select * From BuyDetailsView where BuyDetailBuyId = " & RePay.TxtID.Text & ""

       dt.Clear()

       If RePay.CKid.Checked = False And RePay.CKBillNo.Checked = False And RePay.CKsupplier.Checked = False And RePay.CKitem.Checked = False Then

           adapter = New SqlDataAdapter(SQL1, sqlcon)
           GoTo RunIt

       ElseIf RePay.CKid.Checked = True Then

           adapter = New SqlDataAdapter(SQL2, sqlcon)
           GoTo RunIt

       End If

RunIt:
       adapter.Fill(dt)
       RePay.DGCReBuy.AutoGenerateColumns = False
       RePay.DGCReBuy.DataSource = dt

   End Sub

بارك الله فيك
استخدمت اثنين أدابتر لأنه عندك اثنين من جمل الاستعلام !
ولكن أيضا توجد طريقة ثانية لاستخدام أدابتر واحد إذا استخدمنا الكود التالي :
جربه واعطني النتيجة ...