Office中国论坛/Access中国论坛

标题: 【Access小品】字符串重构---OR连接的查询或筛选准则处理方案 [打印本页]

作者: todaynew 时间: 2010-7-30 06:11
标题: 【Access小品】字符串重构---OR连接的查询或筛选准则处理方案
本帖最后由 todaynew 于 2010-7-30 06:15 编辑

版友威鸽子同志的问题：我在窗体里的文本框能否实现在一个文本框输入多个省份，实现查询多个省的数据？

解答：

[attach]42901[/attach]

Function strlist(ctl As Control) As String
Dim A
Dim i As Long
Dim str As String
str = "False"
A = Split(ctl.Value, ";")
For i = 0 To UBound(A, 1)
A(i) = "Cstr([" & ctl.Controls(0).Caption & "])='" & A(i) & "'"
str = str & " or " & A(i)
Next
strlist = str
End Function

Private Sub 年度_AfterUpdate()
Me.年度.Value = strlist(Me.年度)
End Sub

Private Sub 日期_AfterUpdate()
Me.日期.Value = strlist(Me.日期)
End Sub

Private Sub 省份_AfterUpdate()
Me.省份.Value = strlist(Me.省份)
End Sub

[attach]42902[/attach]

作者: fnsmydyang 时间: 2010-7-30 06:56
收藏学习了。。。谢谢。。。

作者: yanwei82123300 时间: 2010-7-30 08:03
收藏学习了。。。谢谢。。。

作者: xuwenning 时间: 2010-7-30 08:12
收下
谢谢分享

作者: tmtony 时间: 2010-7-30 09:00
谢谢分享.
split和controls(0) 的技巧使用很不错

作者: aslxt 时间: 2010-7-30 11:41
回复 todaynew 的帖子
谢谢分享

作者: t小宝 时间: 2010-7-30 12:19
不错的例子！

作者: c101 时间: 2010-7-30 19:49
谢谢分享

作者: todaynew 时间: 2010-7-30 21:35
谢谢领导和同志们支持与鼓励

作者: ycxchen 时间: 2010-7-31 10:06
TODAYNEW是顶级的VB大师！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)