以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  帮忙找找错  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=27673)
--  作者：雁过不留痕8
--  发布时间：2013/1/7 16:05:00
--  帮忙找找错
按钮的click事件：
Dim t1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim a As String
a=t1.text
Tables("查询_table1").Filter="[计划号]=\'a\'"
在textbook1中输入内容，不能查找
请问是什么原因呢？
谢谢各位了
--  作者：雁过不留痕8
--  发布时间：2013/1/7 16:07:00
--  
补充说明
按钮的click事件：
Dim t1 As WinForm.TextBox = e.Form.Controls("TextBox1")

Tables("查询_table1").Filter="[计划号]=\'1\'"
可以查找到计划号为1的记录
--  作者：lin_hailun
--  发布时间：2013/1/7 16:08:00
--  
 改一下这句

Tables("查询_table1").Filter="[计划号]=\'" & a & "\'"
--  作者：雁过不留痕8
--  发布时间：2013/1/7 16:10:00
--  
嗯，试过了，这样可以，呵呵，帮助文件没看好
谢谢林老师了。