Public Function gString(FullString As String) As String
gString = Split(FullString, "/")(1) '提取字符串中的字符
End Function
把其中的1改成0就行了
红尘如烟 发表于 2009-2-26 11:00
Public Function gString(FullString As String) As String
Dim str As String
If UBound(Split(FullString, "/")) < 1 Then
str = ""
Else
str = Split(FullString, "/")(1)
...
Henry D. Sy 发表于 2009-2-28 20:18
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) | Powered by Discuz! X3.3 |