- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 窗口查找 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79567)
-- 发布时间：2016/1/5 8:58:00
-- 窗口查找
老师，请帮我看下这段代码哪里有问题（按照视频教程里面的）文本框没有绑定到任何字段，点击后没有任何反应；如果绑定到姓名列则输入内容直接替换了查找内容，错误的功能实现了，正确的功能确没实现，不知啥原因呢？
Dim tbx As WinForm.TextBox = e.Form.Controls("txtfind")
Dim nm As String = tbx.value
Dim dr As DataRow = DataTables("员工").Find("姓名 = \'" & nm & "\' ")
If dr IsNot Nothing Then
Dim zs As Integer = Tables("员工").FindRow(dr)
If zs >= 0 Then
Tables("员工").Position = zs
End If
End If
-- 发布时间：2016/1/5 9:03:00
--
Dim nm As String = tbx.Text
-- 发布时间：2016/1/5 9:18:00
--
改了，还是不行喔！
-- 发布时间：2016/1/5 9:28:00
--
那就试试
Dim tbx As WinForm.TextBox = e.Form.Controls("txtfind")
Dim nm As String = tbx.Text
Dim dr As DataRow = DataTables("员工").Find("姓名 like \'%" & nm & "%\' ")
If dr IsNot Nothing Then
Dim zs As Integer = Tables("员工").FindRow(dr)
If zs >= 0 Then
Tables("员工").Position = zs
End If
End If
-- 发布时间：2016/1/5 9:46:00
--
还是没有反应，界面纹丝不动没有反应啊，是不是这个项目文件出了问题了，另外打开的时候也有一个报错提示，我看了已经没有任何代码了可还是报错，老师一起帮我看下吧
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:窗口不能查找.foxdb |
-- 发布时间：2016/1/5 9:55:00
--
1、代码没有任何问题，你的代码是定位都那一行啊；
2、或者直接写
Dim tbx As WinForm.TextBox = e.Form.Controls("txtfind")
Dim nm As String = tbx.Text
Tables("员工").filter = "姓名 like \'%" & nm & "%\' "
-- 发布时间：2016/1/5 10:05:00
--
没有明白老师的回答，我的代码是定位到我输入的查找的内容啊，点击查找以后没有任何反应呢
-- 发布时间：2016/1/5 10:09:00
--
4楼代码没有任何问题啊。定位没有问题啊
-- 发布时间：2016/1/5 10:11:00
--
那是我的软件有问题了，我这边点了查询没有任何反应，
-- 发布时间：2016/1/5 10:13:00
--
卸载重新安装。