Dim lsTemp As String
lsTemp = Right(Text3, 7)
If Left(lsTemp, 1) = 2 Then
Else
Mid(lsTemp, 1, 1) = 2
End If
Text3 = Left(Text3, Len(Text3) - 7) & lsTemp

■□■□■□■□■□■□■□■□■□■□■□■□■□■华丽的分割线■□■□■□■□■□■□■□■□■□■□■□■□■

本着多问的原则，把这个拿来问下，希望大家给个说法，谢谢了


好郁闷啊，换了三个标题，老说没有意义...郁闷

算了，本来要用[求助]的，还是改成[讨论]算了

....第N次了，讨论都说没意义，我的IQ不高，真是想不出来什么有意义的了... T_T

N+1次，真的好可怜啊.....

还没对...加个TextBox试试

谢了，我才学没多久，很多还不懂...
可能问的比较白痴...

Left(Text3, Len(Text3) - 7) & lsTemp

这句又该怎么解释啊

[此贴子已经被作者于2007-8-10 14:34:16编辑过]