Foxtable(狐表)用户栏目专家坐堂 → [求助]后台查询


  共有3474人关注过本帖树形打印复制链接

主题:[求助]后台查询

帅哥哟,离线,有人找我吗?
ntqhj
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:474 积分:2982 威望:0 精华:0 注册:2018/1/15 13:54:00
[求助]后台查询  发帖心情 Post By:2023/11/27 13:47:00 [只看该作者]

窗口(外部数据源):TextBox1输入要查的关键字,只对第一列进行后台模糊查找,且只查找包含关键字的最近一条记录,填写到TextBox2中,这个按钮代码该如何写?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111358 积分:566848 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/11/27 13:53:00 [只看该作者]

dim dr as datarow = datatables("xx表").sqlfind("第一列 like '%" & e.form.controls("TextBox1").text & "%'","[日期] desc")
if dr isnot nothing then
e.form.controls("TextBox2").text = dr("第一列")
endif

 回到顶部
帅哥哟,离线,有人找我吗?
ntqhj
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:474 积分:2982 威望:0 精华:0 注册:2018/1/15 13:54:00
  发帖心情 Post By:2024/2/7 16:30:00 [只看该作者]

老师好!原是access可以用的,现再改成SQL,提示有:'#' 附近有语法错误。应该如何修改啊
Dim Filter As String
With e.Form.Controls("承运车主")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If 
        Filter = Filter & "承运车主 = '" & .Value & "'"
    End If
End With

With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "承运日期 >= #" & .Value & "#"
    End If
End With

With e.Form.Controls("EndDate")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "承运日期 <= #" & .Value & "#"
    End If
End With

If Filter > "" Then
    DataTables("承运人明细表").loadFilter = Filter
    DataTables("承运人明细表").load
Else
    DataTables("承运人明细表").loadFilter = ""
    DataTables("承运人明细表").load
End If


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111358 积分:566848 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/2/7 16:44:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
ntqhj
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:474 积分:2982 威望:0 精华:0 注册:2018/1/15 13:54:00
  发帖心情 Post By:2024/2/7 16:54:00 [只看该作者]

谢谢老师,刚刚查询到了

 回到顶部