Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]数值间的复选


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

主题：[求助]数值间的复选
帅哥哟，离线，有人找我吗？
riyuan
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：404 积分：3086 威望：0 精华：0 注册：2013/4/9 11:49:00 		[求助]数值间的复选  发帖心情 Post By：2024/9/11 16:11:00 [只看该作者]

请教为什么根据党龄不能筛选出记录
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.zip
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

我测试没有问题


图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
riyuan
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：404 积分：3086 威望：0 精华：0 注册：2013/4/9 11:49:00 		  发帖心情 Post By：2024/9/11 16:32:00 [只看该作者]

如果加上运算符那些就不行

 回到顶部
帅哥哟，离线，有人找我吗？
riyuan
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：404 积分：3086 威望：0 精华：0 注册：2013/4/9 11:49:00 		  发帖心情 Post By：2024/9/11 16:34:00 [只看该作者]

比如查询党龄在19-50之间的

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

没看到1楼项目代码里有党龄在某某之间的用法，写了什么代码？

 回到顶部
帅哥哟，离线，有人找我吗？
riyuan
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：404 积分：3086 威望：0 精华：0 注册：2013/4/9 11:49:00 		  发帖心情 Post By：2024/9/11 20:38:00 [只看该作者]

Dim sc As String
Dim str As String = e.Form.Controls("combobox3").Text
With e.Form.Controls("combobox1")
    If .Value IsNot Nothing Then
        If sc > "" Then
            sc = sc & " And "
        End If 
        sc = sc & "所属党组织= '" & .Value & "'"
    End If
End With

With e.Form.Controls("combobox2")
    If .Value IsNot Nothing Then
        If sc > "" Then
            sc = sc & " And "
        End If 
        sc = sc & "在册状态 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("num1")
    If .Value IsNot Nothing Then
        If sc > "" Then
            sc = sc & " And "
        End If 
        sc = sc & "党龄" & str& '" & .Value & "'"
    End If
End With
With e.Form.Controls("num1")
    If .Value IsNot Nothing Then
        If sc > "" Then
            sc = sc & " And "
        End If 
       sc = sc & "党龄" & str& '" & .Value & "'"
    End If
End With
If sc > "" Then
    Tables("testt_table1").Filter = sc
'forms("main").Controls("label50").text = "第" & (Tables("报表管理_table1").Position + 1) & "行,共" & Tables("报表管理_table1").Rows.Count & "行"
       Tables("testt_table1").Focus 
    Else
'         e.Form.Controls("label50").Text = "请输入查询条件!"
MessageBox.Show("请输入查询条件")
End If
 回到顶部
帅哥哟，离线，有人找我吗？
riyuan
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：404 积分：3086 威望：0 精华：0 注册：2013/4/9 11:49:00 		  发帖心情 Post By：2024/9/11 20:38:00 [只看该作者]

就是两个党龄语句
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table


[此贴子已经被作者于2024/9/11 20:41:25编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
riyuan
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：404 积分：3086 威望：0 精华：0 注册：2013/4/9 11:49:00 		  发帖心情 Post By：2024/9/11 20:42:00 [只看该作者]

输入两个党龄之间的数值就不行

 回到顶部
帅哥哟，离线，有人找我吗？
chnfo
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2247 积分：18514 威望：0 精华：0 注册：2011/11/26 20:21:00 		  发帖心情 Post By：2024/9/11 23:47:00 [只看该作者]

With e.Form.Controls("num1")
    If .Value IsNot Nothing Then
        If sc > "" Then
            sc = sc & " And "
        End If 
        sc = sc & "党龄" & str& '" & .Value & "'"
    End If
End With
With e.Form.Controls("num1")    '''指向是同一个控件
    If .Value IsNot Nothing Then
        If sc > "" Then
            sc = sc & " And "
        End If 
       sc = sc & "党龄" & str& '" & .Value & "'"
    End If
End With
 回到顶部
帅哥哟，离线，有人找我吗？
riyuan
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：404 积分：3086 威望：0 精华：0 注册：2013/4/9 11:49:00 		  发帖心情 Post By：2024/9/12 9:59:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table


图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看
就是没有搞明白
 回到顶部
总数 15 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05176 秒, 7 次数据查询