sqldatasource的FilterExpression用法

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">
       

       

       

   
        流水号
        报检号
        企业名称
        商品名称
        申请日期
        生成方案日期
        实施日期
        收费日期
   

   
   
        等于
        相似
        大于
        小于
        不等于
   

   
 
   
  
   
     
     
         并且
        或者
      
     
   

    

     
   
   

   
   
   
   

   

    
               AutoGenerateColumns="False" DataKeyNames="Fumi_NO" DataSourceID="SqlDataSource1" Width="800px" PageSize="5">
       
           
           
           
           

           
         
           
          
           
          
           
           
           
          
       
   

 

相关代码页内容:

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

你可能感兴趣的:(asp.net(vb),asp,textbox,server,date,object,button)