VB.NET中ComboBox2如何根据ComboBox1的选择而筛选内容？请教各位 谢谢！

ComboBox1.datasouce=dt仓库数据表

创新互联拥有网站维护技术和项目管理团队，建立的售前、实施和售后服务体系，为客户提供定制化的成都做网站、网站建设、网站维护、服务器主机托管解决方案。为客户网站安全和日常运维提供整体管家式外包优质服务。我们的网站维护服务覆盖集团企业、上市公司、外企网站、商城网站开发、政府网站等各类型客户群体，为全球1000多家企业提供全方位网站维护、服务器维护解决方案。

ComboBox1.displaymembers="仓库名称"

ComboBox1.valuemembers=“仓库代码”

选择后，可以获取：ComboBox1.selectvalue，比如，选择1号仓库，那么，对应的代码就是1，当然，这个根据你仓库表结构而定

在ComboBox1的selectindexchangge事件中，进行处理

sql可以这么写："select * from 货位数据表 where 仓库编号='+ComboBox1.selectvalue.tostring()+"'"

将运行后的获得的数据源同上方法再给予ComboBox2

vb.net中如果通过dropdownlist来筛选gridview中的数据

您好！

1.ddlname为dropdownlist的ID值

2.dropdownlist绑定sql语句为

select * from tb where name = '"+ddlname.SelectedValue.ToString()+""

3.点击dropdownlist下拉扭时，改变ddlname.SelectedValue.ToString()的值，就可以筛选数据了。

在Vb.net中用SqlDataAdapter 向导配置怎样用变量来筛选数据？

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)

vb.net根据条件筛选表格数据

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)