1 2 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() |