[浏览完整版]
标题：[求助]数值间的复选
1楼
riyuan 发表于：2024/9/11 16:11:00请教为什么根据党龄不能筛选出记录
2楼
有点蓝 发表于：2024/9/11 16:30:00我测试没有问题
此主题相关图片如下：1.png
此主题相关图片如下：1.png3楼
riyuan 发表于：2024/9/11 16:32:00如果加上运算符那些就不行
4楼
riyuan 发表于：2024/9/11 16:34:00比如查询党龄在19-50之间的
5楼
有点蓝 发表于：2024/9/11 17:28:00没看到1楼项目代码里有党龄在某某之间的用法，写了什么代码？
6楼
riyuan 发表于：2024/9/11 20:38:00Dim 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
7楼
riyuan 发表于：2024/9/11 20:38:00就是两个党龄语句
[此贴子已经被作者于2024/9/11 20:41:25编辑过]
8楼
riyuan 发表于：2024/9/11 20:42:00输入两个党龄之间的数值就不行
9楼
chnfo 发表于：2024/9/11 23:47:00With 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
10楼
riyuan 发表于：2024/9/12 9:59:00