Function Test(StrWhere As String)
' StrWhere 为条件参数
'示例: Test "g" 列举T1表中F1字段中全角半角中"g"的数据,但不包括大写G
Dim Rs As New ADODB.Recordset
Dim Str As String
Dim I As Integer
Dim IntLen As Integer
Dim Tem As String
Rs.Open "select * from T1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Do While Not Rs.EOF
Str = ""
IntLen = Len(Rs.Fields("F1"))
Tem = Rs.Fields("F1")
For I = 1 To IntLen
If Asc(Mid(Tem, I, 1)) < 0 Then
Str = Str & Chr(Asc(Mid(Tem, I, 1)) + 23680)
Else
Str = Str & Mid(Tem, I, 1)
End If
Next
If InStr(1, Str, StrWhere, vbBinaryCompare) > 0 Then