[mohamedassim]

السلام عليكم
جملة if   elseif  المتعددة المتداخلة لا تعمل لدي لا اعرف لماذا .... الكود التالي صيحيح لكنه لا يعمل عندما الغي الجزء الخاص ب elseif فانه يعمل 

  () Public Sub BuyBillFullSearch
        Dim dt As New DataTable
        Dim adapter As New SqlDataAdapter
       () 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("select * From BuyDetailsView where (BuyDetailDate between '" & RePay.Date1.Value.ToString("yyyy-MM-dd") & "' And '" & RePay.Date2.Value.ToString("yyyy-MM-dd") & "')", sqlcon)

        ElseIf RePay.CKid.Checked = True Then
            adapter = New SqlDataAdapter("select * From BuyDetailsView where BuyDetailBuyId = " & RePay.TxtID.Text & "", sqlcon)

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

        End If
    End Sub