如何简化下面的过程代码,总觉得有些冗余,请高手指教!!!就剩最后的20分了,只有全送了.
是这样的,如果没有提交则显示全部的表中内容,之后,每点击按钮,就将下拉列表框中的值传为参数,根据参数来显示表中的内容,总感觉下面的判断是不是有些冗余了,不知是否能简化一下呢?
Sub BindGrid()
' Dim getid As Integer = 10787
Dim myConnection As SqlConnection = cn
Dim ds As DataSet = New DataSet()
' Dim adapter As SqlDataAdapter = New SqlDataAdapter("Select * from Orders where OrderId>" & getid, myConnection)
Dim tmp As String
If Not IsPostBack() Then
Dim adapterss As SqlDataAdapter = New SqlDataAdapter("Select * from Orders", myConnection)
adapterss.Fill(ds, "Orders")
MyDataGrid.DataSource = ds.Tables("Orders").DefaultView
MyDataGrid.DataBind()
Else
Dim adapterss As SqlDataAdapter = New SqlDataAdapter("Select * from Orders where OrderId>@getid", myConnection)
adapterss.SelectCommand.Parameters.Add(New SqlParameter("@getID", SqlDbType.VarChar, 30))
adapterss.SelectCommand.Parameters("@getID").Value = ddlist.SelectedItem.Value
adapterss.Fill(ds, "Orders")
MyDataGrid.DataSource = ds.Tables("Orders").DefaultView
MyDataGrid.DataBind()
End If
End Sub