ComboBox1.datasouce=dt仓库数据表
创新互联拥有网站维护技术和项目管理团队，建立的售前、实施和售后服务体系，为客户提供定制化的成都做网站、网站建设、网站维护、服务器主机托管解决方案。为客户网站安全和日常运维提供整体管家式外包优质服务。我们的网站维护服务覆盖集团企业、上市公司、外企网站、商城网站开发、政府网站等各类型客户群体，为全球1000多家企业提供全方位网站维护、服务器维护解决方案。
ComboBox1.displaymembers="仓库名称"
ComboBox1.valuemembers=“仓库代码”
选择后，可以获取：ComboBox1.selectvalue，比如，选择1号仓库，那么，对应的代码就是1，当然，这个根据你仓库表结构而定
在ComboBox1的selectindexchangge事件中，进行处理
sql可以这么写："select * from 货位数据表 where 仓库编号='+ComboBox1.selectvalue.tostring()+"'"
将运行后的获得的数据源同上方法再给予ComboBox2
您好！
1.ddlname为dropdownlist的ID值
2.dropdownlist绑定sql语句为
select * from tb where name = '"+ddlname.SelectedValue.ToString()+""
3.点击dropdownlist下拉扭时，改变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)
