If Datatables("订单").DataCols(e.Col.Name).IsString Then
Tables("订单").Filter = e.Col.Name & " Like '*" & e.Row(e.Col.Name) & "*'"
End If
在表的双击事件里写这段代码,实现双击自动查询。hoho