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


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

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

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


加好友 发短信
等级:童狐 帖子:209 积分:1640 威望:0 精华:0 注册:2018/3/5 10:34:00
[求助]有点甜老师  发帖心情 Post By:2018/12/20 19:37:00 [显示全部帖子]


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

你好有点甜老师,我用两个textbox控件,输入两个数值在这个范围查询,怎么会出现这种情况,请指教,我是按你以前告诉我的来做的。

 

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

 

Dim v5 As String = e.form.controls("textbox10").text
If v5 > "" Then
    filter &= " And pjpw >= " & v5
End If
Dim v6 As String = e.form.controls("textbox11").text
If v6 > "" Then
    filter &= " And pjpw <= " & v6
End If

第一个查询非常好用,为什么第二个就不行了。


第一好用的是分数,第二个我是按照平均排位Pjpw来查询的,和输入的数字大小有关吗,平均排位的数字超过200000

 

怎么会弹出这样的对话框,多多指教啊!
图片点击可在新窗口打开查看此主题相关图片如下:123.jpg
图片点击可在新窗口打开查看


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


加好友 发短信
等级:童狐 帖子:209 积分:1640 威望:0 精华:0 注册:2018/3/5 10:34:00
  发帖心情 Post By:2018/12/20 20:44:00 [显示全部帖子]

非常谢谢老师,如果改成整数了,那么是不是定义变量,dim v5 as string=,这个字符串得改成整数么,用改么,得改成什么,再次感谢啦

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


加好友 发短信
等级:童狐 帖子:209 积分:1640 威望:0 精华:0 注册:2018/3/5 10:34:00
  发帖心情 Post By:2018/12/20 21:01:00 [显示全部帖子]

好的,非常感谢老师,我试试,那么像大学校名本身是字符汉字,也用改么!字符不是汉字那个意思是么,如果改成整数查询速度会更快么,还是语法就这样的,谢谢老师那么及时回复!

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


加好友 发短信
等级:童狐 帖子:209 积分:1640 威望:0 精华:0 注册:2018/3/5 10:34:00
  发帖心情 Post By:2018/12/20 21:32:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:1234.jpg
图片点击可在新窗口打开查看
有点甜老师,我想改过来,怎么不行啊,出现了这样的提示,谢谢啦
图片点击可在新窗口打开查看此主题相关图片如下:123.jpg
图片点击可在新窗口打开查看

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


加好友 发短信
等级:童狐 帖子:209 积分:1640 威望:0 精华:0 注册:2018/3/5 10:34:00
  发帖心情 Post By:2018/12/20 21:54:00 [显示全部帖子]

老师,这个是不是因为我的这个列里除了数字还可能有汉字或者字母,是这样么,谢谢啦

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


加好友 发短信
等级:童狐 帖子:209 积分:1640 威望:0 精华:0 注册:2018/3/5 10:34:00
  发帖心情 Post By:2018/12/20 22:08:00 [显示全部帖子]

谢谢了老师,我是这么做的,新增一个整数列,然后把原来那列字符的数据复制过去,就可以了,这是怎么回事,太难懂了,老师你真是太牛了!这么晚了谢谢老师。


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


加好友 发短信
等级:童狐 帖子:209 积分:1640 威望: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
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:209 积分:1640 威望: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两个控件吗,谢谢啦,先休息吧晚安


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


加好友 发短信
等级:童狐 帖子:209 积分:1640 威望:0 精华:0 注册:2018/3/5 10:34:00
  发帖心情 Post By:2018/12/21 8:46:00 [显示全部帖子]

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

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


加好友 发短信
等级:童狐 帖子:209 积分:1640 威望:0 精华:0 注册:2018/3/5 10:34:00
  发帖心情 Post By:2018/12/21 8:47:00 [显示全部帖子]


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

 回到顶部
总数 13 1 2 下一页