Dim s As String
s = e.Form.Controls("TextBox2").Value
Dim dst1 As Table = Tables("產品管理系統_Table1")
dst1.DataSource = DataTables("產品管理系統_印前")
dst1.SetColVisibleWidth("項目|50|內容|50|新舊網框|90|規格|90|台數|50|說明|90|成本單價|90|成本小計|90|產品代號|90|產品規格|90")
If dst1.Current Is Nothing Then
dst1.Filter = "False"
Else
dst1.Filter = "[產品代號] Like '%"& s &"%'"
End If