- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何筛选出“归档号”内容？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=111393)
-- 发布时间：2017/12/21 8:35:00
-- [求助]如何筛选出“归档号”内容？
归档号是文本，现在想做个文号查询，从归档号的指定号到结束后，怎么写代码，谢谢
如图：
此主题相关图片如下：截图01.jpg
此主题相关图片如下：截图01.jpg此主题相关图片如下：截图00.jpg
-- 发布时间：2017/12/21 8:46:00
--
字符也可以直接比较大小的。
Tables("表A").Filter = "第一列 >= \'" & 控件.value & "\' and 第一列 <= \'" & 控件.value & "\'"
-- 发布时间：2017/12/21 8:50:00
--
With e.Form.Controls("开始号")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "归档号 >= #" & .Value & "#"
End If
End With
With e.Form.Controls("结束号")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "归档号 <= #" & .Value & "#"
End If
End With
有点甜，这段代码运行不了，是什么问题？
-- 发布时间：2017/12/21 9:02:00
--
改成下面这样，然后，你输入的值分别是什么？
With e.Form.Controls("开始号")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "归档号 >= \'" & .Value & "\'"
End If
End With
With e.Form.Controls("结束号")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "归档号 <= \'" & .Value & "\'"
End If
End With
-- 发布时间：2017/12/21 11:07:00
--
谢谢