- 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)
-- 发布时间：2024/9/11 16:11:00
-- [求助]数值间的复选
请教为什么根据党龄不能筛选出记录
-- 发布时间：2024/9/11 16:30:00
--
我测试没有问题
此主题相关图片如下：1.png
-- 发布时间：2024/9/11 16:32:00
--
如果加上运算符那些就不行
-- 发布时间：2024/9/11 16:34:00
--
比如查询党龄在19-50之间的
-- 发布时间：2024/9/11 17:28:00
--
没看到1楼项目代码里有党龄在某某之间的用法，写了什么代码？
-- 发布时间：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
-- 发布时间：2024/9/11 20:38:00
--
就是两个党龄语句
[此贴子已经被作者于2024/9/11 20:41:25编辑过]
-- 发布时间：2024/9/11 20:42:00
--
输入两个党龄之间的数值就不行
-- 发布时间：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
-- 发布时间：2024/9/12 9:59:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.table |
此主题相关图片如下：2.png
就是没有搞明白