【Access小品】字符串重构---OR连接的查询或筛选准则处理方案

todaynew

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

解答：



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

fnsmydyang

收藏学习了。。。谢谢。。。

yanwei82123300

收藏学习了。。。谢谢。。。

xuwenning

收下
谢谢分享

tmtony

谢谢分享.
split和controls(0) 的技巧使用很不错

aslxt

回复 todaynew 的帖子
谢谢分享


   

t小宝

不错的例子！

c101

谢谢分享

todaynew

谢谢领导和同志们支持与鼓励

ycxchen

TODAYNEW是顶级的VB大师！