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