1、打开窗口写代码
Forms("主窗口").Open
2、加载数据,在TextChanged事件写代码
Dim t as table = e.Form.Controls("Table1").Table
t.Filter = "范围 = '" & e.Sender.Text & "'"
具体问题,请上传具体foxtable项目说明。