Office中国论坛/Access中国论坛

标题: 求助：UBound和Split的问题 [打印本页]

作者: officer_mk 时间: 2010-3-9 20:20
标题: 求助：UBound和Split的问题
调用示例：Me.Text1= mySplitText("CIGT - CIMC TF-Carol-Bond")
需要返回： Bond
Function mySplitText(strMyText As String) As String
Dim i As Integer
i = UBound(Split(strMyText, "-", -1), 1)
mySplitText = Split(strMyText, "-", -1)(i - 1)
End Function
按以上返回Carol，到底是哪里的问题？？

作者: officer_mk 时间: 2010-3-9 20:24
自己顶

作者: officer_mk 时间: 2010-3-9 20:42
呵呵，不用了，找到了，嘿嘿(i - 1)变（i）

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)