自定义函数CheckString,在查询中使用也是提示函数未定义
Function CheckString(a As String) As String
Dim i As Integer
Dim c As Integer
Dim j As String
Dim CheckValue As String
If IsNull(a) Or a = "" Then
Exit Function
End If
For i = 1 To Len(a)
j = Mid(a, i, 1)
c = Asc(j)
If (((c >= Asc("a")) And (c <= Asc("z"))) Or ((c >= Asc("A")) And (c <= Asc("Z"))) Or ((c >= Asc("0")) And (c <= Asc("9")))) Then
CheckValue = CheckValue + j
End If
Next
CheckString = CheckValue
End Function作者: sunredday 时间: 2003-6-11 03:22
VAB-STRINGS-REPLACE 就有
查以下
可能是 程序坏了作者: rlx 时间: 2003-6-11 03:54