ComboBox1.datasouce=dt仓库数据表
ComboBox1.valuemembers="仓库代码"
选择后,可以获取:ComboBox1.selectvalue,比如,选择1号仓库,那么,对应的代码就是1,当然,这个根据你仓库表结构而定
在ComboBox1的selectindexchangge事件中,进行处理
sql可以这么写:"select * from 货位数据表 where 仓库编号='+ComboBox1.selectvalue.tostring()+"'"
您好!
①ddlname为dropdownlist的ID值
select * from tb where name = '"+ddlname.SelectedValue.ToString()+""
Dim myDataset As New DataSet
Dim myBindingSource As New BindingSource
Private Function CreatDataAdapter(ByVal myConn As OleDbConnection, ByVal SQLstr As String, ByVal Connstr As String) As OleDbDataAdapter
Dim adapter As New OleDbDataAdapter
Dim mySelectCommand As OleDbCommand
adapter.SelectCommand = New OleDbCommand(SQLstr, myConn)
Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(adapter)
Return adapter
End Function
Private Sub Build_DGV(ByVal SQLstr, ByVal ConnStr)
myDataset.Reset()
Dim myConn As New OleDbConnection(ConnStr)
CreatDataAdapter(myConn, SQLstr , ConnStr).Fill(myDataset)
myBindingSource.DataSource = myDataset.Tables(0)
DataGridView1.DataSource = myBindingSource
myConn.Close()
myConn.Dispose()
End Sub
在按钮事件里调用Build_DGV(),不同的sql语句在DataGridView1里出不同的数据,控制sql语句的where条件就能筛选数据了.
另外,你还可以用myDataset.Tables(0).DefaultView.RowFilter(filetecause)
Sub?Find(ByRef?Obj?As?DataGridView,?Optional?ByVal?value?As?String?=?Nothing,?Optional?ByVal?cellIndex?As?Integer?=?1)
For?Each?i?As?DataGridViewRow?In?DataGridView1.Rows
If?value?Is?Nothing?OrElse?value?=?""?Then
i.Visible?=?True
Else
Try
If?i.Cells(cellIndex).Value?IsNot?Nothing?Then?i.Visible?=?i.Cells(cellIndex).Value?=?value
Catch?ex?As?Exception
End?Try
End?If
Next
End?Sub
Find(DataGridView1, "张三",1)
以上就是土嘎嘎小编为大家整理的vb.net数据集筛选相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!