| 12
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 
 |  
Protected Sub Buttonrecherche_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Buttonrecherche.Click
        Dim s1, s2 As String
 
        If DropDownListportable.SelectedValue = 0 Then
            s1 = ""
        Else
            s1 = " AND ((recharge.type)=" & DropDownListportable.SelectedValue & ")"
        End If
 
        If String.IsNullOrEmpty(TextBoxmotcle.Text) Then
            s2 = ""
        Else
            s2 = " AND ((agent1.nom) Like '%" & TextBoxmotcle.Text & "%') "
        End If
 
        Sqlrecherche.SelectCommand = "SELECT agent.nom, recharge.[date], recharge.montant FROM (recharge INNER JOIN agent ON recharge.id_agent = agent.id_agent) WHERE (DateValue(recharge.[date]) BETWEEN ? AND ?)" & s2 & s1 & "ORDER BY DateValue([date])"
 
        GridViewrecherche.DataBind() |