1、一种是简单的单个字段查找法:
代码页:
Protected Sub Search_Click(ByVal sender As Object, ByVal e As System.EventArgs)
ddlSel = ddlSelect.SelectedValue
ObjectDataSource1.FilterExpression = ddlSel & " like '%{0}%'"
If txtcont.Text = "" Then
ObjectDataSource1.FilterParameters.Clear()
ObjectDataSource1.FilterParameters.Add(ddlSel, "")
'e.ParameterValues.Add(ddlSel, " ")
Else
ObjectDataSource1.FilterParameters.Clear()
ObjectDataSource1.FilterParameters.Add(ddlSel, txtcont.Text)
'ObjectDataSource1.FilterParameters(ddlSel).DefaultValue = Textbox1.Text
End If
End Sub
第二种用于组合查询:
asp:Label ID="Label14" Runat="server" Text="工作流程查询" SkinID="FormHeading">
相关代码页内容:
Protected Sub BtnAddSQL_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnAddSQL.Click
If ddlExpress.SelectedValue = "like" Then
txtSQLContent.Text = txtSQLContent.Text & " " & ddlAndOr.SelectedValue.ToString & " " & ddlname.SelectedValue.ToString & " " & ddlExpress.SelectedValue.ToString & " '%" & txtCondition.Text & "%' "
Else
txtSQLContent.Text = txtSQLContent.Text & " " & ddlAndOr.SelectedValue.ToString & " " & ddlname.SelectedValue.ToString & " " & ddlExpress.SelectedValue.ToString & " '" & txtCondition.Text & "' "
End If
End Sub
Protected Sub BtnQuery_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnQuery.Click
SqlDataSource1.FilterExpression = txtSQLContent.Text
GridView1.DataBind()
End Sub
Protected Sub GridView1_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GridView1.PageIndexChanging
SqlDataSource1.FilterExpression = txtSQLContent.Text
GridView1.DataBind()
End Sub
Protected Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GridView1.RowDataBound
'解决报检号在导出后格式不对的问题
If e.Row.RowType = DataControlRowType.DataRow Then
e.Row.Cells(2).Attributes.Add("style", "vnd.ms-excel.numberformat:@;")
'@表示文本,G/通用格式 表示 常规,0.00_):[红色](0.00) 表示 小数,
End If
End Sub
Protected Sub GridView1_Sorting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewSortEventArgs) Handles GridView1.Sorting
SqlDataSource1.FilterExpression = txtSQLContent.Text
GridView1.DataBind()
End Sub
Protected Sub BtnClrSQL_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnClrSQL.Click
txtSQLContent.Text = ""
End Sub