亚音速集合

我写这段代码是为了生成一个集合。我试着用亚音速过滤这个集合,但它不起作用。实际上,where子句在用户输入时会发生更改,因此我无法将where子句添加到sqlquery中,而且datatable将根据用户输入填充来自集合的不同数据。我怎么能受得了。另外,我希望集合保持不变,以便进一步使用它来筛选另一个where子句。我只选择了两列,但所有列都显示出来了。请帮忙。

Dim sq As SB.SqlQuery = New SB.Select("product.prodcode as 'Product Code'").From(DB.Product.Schema)
Dim wh As SB.Where = New SB.Where()
Dim prod As DB.ProductCollection = sq.ExecuteAsCollection(Of DB.ProductCollection)()

wh.ColumnName = DB.Product.ServiceColumn.PropertyName
wh.Comparison = SubSonic.Comparison.NotEquals
wh.ParameterValue = System.Decimal.One

Dim tab As DataTable = prod.Where(wh).Filter().ToDataTable()
Me.GridControl1.DataSource = tab