- 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=95244)
-- 发布时间：2017/1/14 9:05:00
-- [求助]查询按钮代码
表A下窗口“学生”中有一文本框输入学生姓名，单击查询按钮，就能找到这个表格中这个学生全部信息，显示在学生窗口的其他与表格列相对应文本框中，哪位大师能指点一下
-- 发布时间：2017/1/14 9:10:00
--
表A下窗口“学生”中有一文本框输入学生学号，单击查询按钮，就能找到这个表格中这个学生全部信息，显示在学生窗口的其他与表格列相对应文本框中，哪位大师能指点一下 |
-- 发布时间：2017/1/14 9:13:00
--
1、其它文本框绑定表格对应的列：http://www.foxtable.com/webhelp/scr/0704.htm
-- 发布时间：2017/1/14 11:02:00
--
代码对吗？单机没反应，求大师解决
Dim Filter As String
With e.Form.Controls("TextBox2")
If .Value IsNot Nothing Then
Filter = "姓名 = \'" & .Value & "\'"
End If
End With
With e.Form.Controls("TextBox4")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "职务 = \'" & .Value & "\'"
End If
End With
-- 发布时间：2017/1/14 11:03:00
--
代码对吗？单击查询按钮没反应，求大师解决
Dim Filter As String
With e.Form.Controls("TextBox2")
If .Value IsNot Nothing Then
Filter = "姓名 = \'" & .Value & "\'"
End If
End With
With e.Form.Controls("TextBox4")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "职务 = \'" & .Value & "\'"
End If
End With
-- 发布时间：2017/1/14 11:12:00
--
代码没有问题，就是不完整。请仔细看帮助
-- 发布时间：2017/1/14 11:30:00
--
此主题相关图片如下：截图00.png
-- 发布时间：2017/1/14 11:31:00
--
单击查询按钮没反应，求大师解决
-- 发布时间：2017/1/14 11:34:00
--
大师在吗
-- 发布时间：2017/1/14 11:44:00
--
求大师帮忙