主题：实例求教

TextChanged事件

If e.Sender.Text > "" Then
    Dim filter As String = "特征一 like '%" & e.Sender.Text & "%' or 特征二 like '%" & e.Sender.Text & "%'"
    e.Form.Controls("Table2").Table.Filter = filter
    e.Form.Controls("Table1").Table.Filter = "编号 in ('" & e.Form.Controls("Table2").Table.DataTable.GetComboListString("编号", filter).Replace("|", "','") & "')"
End If