Foxtable(狐表)用户栏目专家坐堂 → [求助]有点甜老师


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

主题:[求助]有点甜老师

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/20 22:10:00 [只看该作者]

不然你就改代码吧,如果是字符列

 

Dim Filter As String = "1=1"
Dim v1 As String = e.form.controls("textbox1").text
If v1 > "" Then
    filter &= " And zdffs >= '" & v1 & "'"
End If

 

http://www.foxtable.com/webhelp/scr/1284.htm


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


加好友 发短信
等级:幼狐 帖子:186 积分:1470 威望:0 精华:0 注册:2018/3/5 10:34:00
  发帖心情 Post By:2018/12/20 22:14:00 [只看该作者]

还有一个问题,我用textbox控件,建了两个查询栏,用的这样的代码,可这样什么也查不到了,如果想连续用这样多个查询,代码怎么改啊,谢谢老师啊
With e.Form.Controls("textbox9")
    If .Value IsNot Nothing Then
        Dim str As String = ""
        For Each s As String In .value.split(" ")
            str &= "yxmc like '%" & s & "%' or "
        Next
        Filter &= " and (" & str.substring(0, str.length-4) & ")"
    End If
End With

With e.Form.Controls("textbox10")
    If .Value IsNot Nothing Then
        Dim str As String = ""
        For Each s As String In .value.split(" ")
            str &= "yxmc like '%" & s & "%' or "
        Next
        Filter &= " and (" & str.substring(0, str.length-4) & ")"
    End If
图片点击可在新窗口打开查看此主题相关图片如下:12345.jpg
图片点击可在新窗口打开查看
End With


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


加好友 发短信
等级:幼狐 帖子:186 积分:1470 威望:0 精华:0 注册:2018/3/5 10:34:00
  发帖心情 Post By:2018/12/20 22:39:00 [只看该作者]

不然你就改代码吧,如果是字符列

 

Dim Filter As String = "1=1"
Dim v1 As String = e.form.controls("textbox1").text
If v1 > "" Then
    filter &= " And zdffs >= '" & v1 & "'"
End If

老师,这个代码,这需要两个数值之间,比如1000-2000之间,不是需要两个textbox两个控件吗,谢谢啦,先休息吧晚安


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/20 22:40:00 [只看该作者]

改成

 

Dim flt As String = ""

With e.Form.Controls("textbox9")
    If .Value IsNot Nothing Then
        Dim str As String = ""
        For Each s As String In .value.split(" ")
            str &= " or yxmc like '%" & s & "%'"
        Next
        flt &= str
    End If
End With
With e.Form.Controls("textbox10")
    If .Value IsNot Nothing Then
        Dim str As String = ""
        For Each s As String In .value.split(" ")
            str &= " or yxmc like '%" & s & "%'"
        Next
        flt &= str
    End If
End With
 
If flt > "" Then
      Filter &= " and (" & flt.substring(3) & ")"
End if
msgbox(filter)

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


加好友 发短信
等级:幼狐 帖子:186 积分:1470 威望:0 精华:0 注册:2018/3/5 10:34:00
  发帖心情 Post By:2018/12/21 8:46:00 [只看该作者]

老师你好,按你的做,非常好,可是弹出这样的提示,谢谢啦

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


加好友 发短信
等级:幼狐 帖子:186 积分:1470 威望:0 精华:0 注册:2018/3/5 10:34:00
  发帖心情 Post By:2018/12/21 8:47:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:321.jpg
图片点击可在新窗口打开查看

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


加好友 发短信
等级:幼狐 帖子:186 积分:1470 威望:0 精华:0 注册:2018/3/5 10:34:00
  发帖心情 Post By:2018/12/21 8:49:00 [只看该作者]

Dim Filter As String = "1=1"
Dim flt As String = ""

With e.Form.Controls("textbox9")
    If .Value IsNot Nothing Then
        Dim str As String = ""
        For Each s As String In .value.split(" ")
            str &= " or yxmc like '%" & s & "%'"
        Next
        flt &= str
    End If
End With
With e.Form.Controls("textbox12")
    If .Value IsNot Nothing Then
        Dim str As String = ""
        For Each s As String In .value.split(" ")
            str &= " or yxmc like '%" & s & "%'"
        Next
        flt &= str
    End If
End With
With e.Form.Controls("textbox13")
    If .Value IsNot Nothing Then
        Dim str As String = ""
        For Each s As String In .value.split(" ")
            str &= " or yxmc like '%" & s & "%'"
        Next
        flt &= str
    End If
End With
With e.Form.Controls("textbox14")
    If .Value IsNot Nothing Then
        Dim str As String = ""
        For Each s As String In .value.split(" ")
            str &= " or yxmc like '%" & s & "%'"
        Next
        flt &= str
    End If
End With
With e.Form.Controls("textbox15")
    If .Value IsNot Nothing Then
        Dim str As String = ""
        For Each s As String In .value.split(" ")
            str &= " or yxmc like '%" & s & "%'"
        Next
        flt &= str
    End If
End With
With e.Form.Controls("textbox16")
    If .Value IsNot Nothing Then
        Dim str As String = ""
        For Each s As String In .value.split(" ")
            str &= " or yxmc like '%" & s & "%'"
        Next
        flt &= str
    End If
End With
 
If flt > "" Then
      Filter &= " and (" & flt.substring(3) & ")"
End If
msgbox(filter)
Tables("高考信息查询表").Filter = Filter


老师我按的写的代码是这样的

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/21 8:50:00 [只看该作者]

呃,这个代码删除即可

 

msgbox(filter)

 

 


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


加好友 发短信
等级:幼狐 帖子:186 积分:1470 威望:0 精华:0 注册:2018/3/5 10:34:00
  发帖心情 Post By:2018/12/21 9:22:00 [只看该作者]

非常感谢,解决啦,你太牛了,也非常热心!

 回到顶部
总数 19 上一页 1 2