以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]数值间的复选  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=193411)

--  作者:riyuan
--  发布时间:2024/9/11 16:11:00
--  [求助]数值间的复选
请教为什么根据党龄不能筛选出记录
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.zip



--  作者:有点蓝
--  发布时间:2024/9/11 16:30:00
--  
我测试没有问题


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


--  作者:riyuan
--  发布时间:2024/9/11 16:32:00
--  
如果加上运算符那些就不行
--  作者:riyuan
--  发布时间:2024/9/11 16:34:00
--  
比如查询党龄在19-50之间的
--  作者:有点蓝
--  发布时间:2024/9/11 17:28:00
--  
没看到1楼项目代码里有党龄在某某之间的用法,写了什么代码?
--  作者:riyuan
--  发布时间: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
--  发布时间:2024/9/11 20:38:00
--  
就是两个党龄语句
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table


[此贴子已经被作者于2024/9/11 20:41:25编辑过]

--  作者:riyuan
--  发布时间:2024/9/11 20:42:00
--  
输入两个党龄之间的数值就不行
--  作者:chnfo
--  发布时间: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
--  发布时间:2024/9/12 9:59:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table


图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看
就是没有搞明白