以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]查询按钮代码  (http://foxtable.net/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
--  
求大师帮忙