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

解答：

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

点击下载此附件