专家坐堂-[求助]数值间的复选Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]数值间的复选  (http://foxtable.net/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

就是没有搞明白