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

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

共有1704人关注过本帖树形打印复制链接主题：[求助]数值间的复选

riyuan

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：404 积分：3086 威望：0 精华：0 注册：2013/4/9 11:49:00

[求助]数值间的复选 发帖心情

Post By：2024/9/11 16:11:00 [显示全部帖子]

请教为什么根据党龄不能筛选出记录

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.zip

riyuan

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：404 积分：3086 威望：0 精华：0 注册：2013/4/9 11:49:00

Post By：2024/9/11 16:32:00 [显示全部帖子]

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

riyuan

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：404 积分：3086 威望：0 精华：0 注册：2013/4/9 11:49:00

Post By：2024/9/11 16:34:00 [显示全部帖子]

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

riyuan

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：404 积分：3086 威望：0 精华：0 注册：2013/4/9 11:49:00

Post By：2024/9/11 20:42:00 [显示全部帖子]

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

riyuan

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：404 积分：3086 威望：0 精华：0 注册：2013/4/9 11:49:00

Post By：2024/9/12 9:59:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.table

此主题相关图片如下：2.png

就是没有搞明白

riyuan

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：404 积分：3086 威望：0 精华：0 注册：2013/4/9 11:49:00

Post By：2024/9/12 10:08:00 [显示全部帖子]

根据党龄进行筛选。相当于就是取包含值，大于1等于19

riyuan

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：404 积分：3086 威望：0 精华：0 注册：2013/4/9 11:49:00

Post By：2024/9/12 14:53:00 [显示全部帖子]

Dim sc As String

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 & "党龄 >= " & .Value & ""

ElseIf .Controls("num2").Value = "" Then

If sc > "" Then

sc = sc & " And "

End If

sc = sc & "党龄 = " & .Value & ""

End if

End With

With e.Form.Controls("num2")

If .Value IsNot Nothing Then

If sc > "" Then

sc = sc & " And "

End If

sc = sc & "党龄 <= " & .Value & ""

End If

End With

If sc > "" Then

Tables("testt_table1").Filter = sc

Tables("testt_table1").Focus

Else

MessageBox.Show("请输入查询条件")

End If

能不能判断num2为空时，执行 sc = sc & "党龄 = " & .Value & ""，不为空格时执行 sc = sc & "党龄<= " & .Value & ""

下一主题 >> << 上一主题

主题：[求助]数值间的复选