sqldatasourse的自定义参数及gridview的分页

sqldatasourse的自定义参数及gridview的分页

 

    Protected Sub GridView1_PageIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView1.PageIndexChanged
        Dim a As Integer
        a = Me.DropDownList1.SelectedValue
        If a = 0 Then
            Me.SqlDataSource1.SelectParameters.Clear()
            Me.SqlDataSource1.SelectCommand = "SELECT [OrderID], [ProductID], [UnitPrice], [Quantity], [Discount] FROM [Order Details]"
        Else

            Me.SqlDataSource1.SelectCommand = "SELECT [OrderID], [ProductID], [UnitPrice], [Quantity], [Discount] FROM [Order Details] where ProductID=@ProductID"
            Me.SqlDataSource1.SelectParameters.Clear()
            Me.SqlDataSource1.SelectParameters.Add("ProductID", a)

        End If
        Me.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
            Dim bz As Integer = Convert.ToInt32(DataBinder.Eval(e.Row.DataItem, "quantity"))
            If bz = 1 Then
                e.Row.BackColor = Drawing.Color.WhiteSmoke
            End If
        End If
    End Sub

    Protected Sub GridView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView1.SelectedIndexChanged
        Dim a As String
        a = Me.GridView1.SelectedRow.Cells(1).Text
        Label2.Text = a
    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        '  Label1.Text = GridView1.Rows.Count

        Dim i As Integer
        Dim str1 As String
        Dim t As HtmlInputCheckBox
        str1 = ""
        For i = 0 To GridView1.Rows.Count - 1

            t = GridView1.Rows(i).Cells(6).FindControl("Checkbox1")
            If t.Checked Then
                If str1 = "" Then
                    str1 = t.Value
                Else
                    str1 = str1 & "," & t.Value
                End If

            End If
        Next
        Label1.Text = str1
    End Sub

 

    Protected Sub DropDownList1_DataBound(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList1.DataBound
        If Not Page.IsPostBack Then
            DropDownList1.Items.Insert(0, New ListItem("all", "0"))
        End If
    End Sub

    Protected Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList1.SelectedIndexChanged
        Dim a As Integer
        a = Me.DropDownList1.SelectedValue
        If a = 0 Then
            Me.SqlDataSource1.SelectParameters.Clear()
            Me.SqlDataSource1.SelectCommand = "SELECT [OrderID], [ProductID], [UnitPrice], [Quantity], [Discount] FROM [Order Details]"
        Else

            Me.SqlDataSource1.SelectCommand = "SELECT [OrderID], [ProductID], [UnitPrice], [Quantity], [Discount] FROM [Order Details] where ProductID=@ProductID"
            Me.SqlDataSource1.SelectParameters.Clear()
            Me.SqlDataSource1.SelectParameters.Add("ProductID", a)

        End If
        Me.GridView1.DataBind()

    End Sub

End Class