'动态装载下拉列表 Sub checkstate_Load() search.SelectCommand.CommandText = "Select kValue,kContent from KeyWord where Kname = 'CheckState'" search.SelectCommand.Connection = DBConnection Dim DS As DataSet DS = New DataSet() search.Fill(DS, "checks") Cstate.DataSource = DS.Tables("checks").DefaultView Cstate.DataBind() End Sub'根据选择的条件查询,在datagrid中显示查询结果 Sub loca_data() search.SelectCommand.CommandText = "Select * from NormalInfo where CheckState=@statevalue"
search.SelectCommand.Connection = DBConnection search.SelectCommand.Parameters.Add(New SqlClient.SqlParameter("@statevalue", SqlDbType.Int, 4)) search.SelectCommand.Parameters("@statevalue").Value = Cstate.SelectedItem.Value Dim DS As DataSet DS = New DataSet() search.Fill(DS, "stataval") CheckData.DataSource = DS.Tables("stataval").DefaultView CheckData.DataBind() End Sub
我直接用 "Select * from NormalInfo where CheckState ='"&Cstate.SelectedItem.Value &"'"的
Sub checkstate_Load()
search.SelectCommand.CommandText = "Select kValue,kContent from KeyWord where Kname = 'CheckState'"
search.SelectCommand.Connection = DBConnection Dim DS As DataSet
DS = New DataSet() search.Fill(DS, "checks")
Cstate.DataSource = DS.Tables("checks").DefaultView
Cstate.DataBind()
End Sub'根据选择的条件查询,在datagrid中显示查询结果
Sub loca_data()
search.SelectCommand.CommandText = "Select * from NormalInfo where CheckState=@statevalue"
search.SelectCommand.Connection = DBConnection search.SelectCommand.Parameters.Add(New SqlClient.SqlParameter("@statevalue", SqlDbType.Int, 4))
search.SelectCommand.Parameters("@statevalue").Value = Cstate.SelectedItem.Value Dim DS As DataSet
DS = New DataSet() search.Fill(DS, "stataval")
CheckData.DataSource = DS.Tables("stataval").DefaultView
CheckData.DataBind() End Sub
Page_Load的 If Not IsPostBack Then 中间。
OK了。