[mohamedassim]

(08-07-22, 09:37 AM)أبو خالد الشكري كتب : جرب أن تستعمل الكود الذي عدلته لك !

كود :

   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

عاشت الايادي ... يعمل بشكل ممتاز  .. جزاك الله خير
من فضلك ممكن تشرح لي لماذا استخدمت اثنين ادابتر
مع العلم ان الكود قبل التعديل في اصدار اخر من الفيجول ستوديو يعمل...لكن حاليا في اصدار 2017 لا يعمل معي