7,789
社区成员
发帖
与我相关
我的任务
分享你会我不会，帮帮忙！
If Left$(Trim(Text1.Text), 1) <> "0" And Len(Trim(Text1.Text)) <> 7 Then
MsgBox "dsdf"
Text1.SetFocus
Exit Sub
Else
MsgBox "11111"
end if
为什么我只要输入7为数，无论是不是以0开头的，提示框都是显示“11111”呢？
真伤脑筋，请大家帮忙看一下，到底哪里出了问题，谢谢！
MsgBox "dsdf"
Text1.SetFocus
Exit Sub
Else
MsgBox "11111"
end if
为什么我只要输入7为数，无论是不是以0开头的，提示框都是显示“11111”呢？
真伤脑筋，请大家帮忙看一下，到底哪里出了问题，谢谢！
...全文
请发表友善的回复…
发表回复
demo001 2003-09-23
- 打赏
- 举报
没错阿
1111111满足“左边第一位”这个条件，但是不满足“长度不为7”这个条件阿
你用的是and啊，要同时成立才能让text得到焦点阿
现在不满足“长度不为7”
所以输出"lllll"阿
楼主细心一些阿!
1111111满足“左边第一位”这个条件，但是不满足“长度不为7”这个条件阿
你用的是and啊，要同时成立才能让text得到焦点阿
现在不满足“长度不为7”
所以输出"lllll"阿
楼主细心一些阿!
wxhfi 2003-09-23
- 打赏
- 举报
晕，我的意思就是：左边第一位不是零并且长度不为7,则text得到焦点,否则输出"lllll"
但是我往文本框里输入1111111，结果还是输出“11111”到底为什么呀？
但是我往文本框里输入1111111，结果还是输出“11111”到底为什么呀？
strongfisher 2003-09-23
- 打赏
- 举报
你的代码是边第一位不是零并且长度不为7,则text得到焦点,否则输出"lllll"
射天狼 2003-09-23
- 打赏
- 举报
不知你要实现什么,你现在代码的意思是:左边第一位不是零并且长度不为7,则text得到焦点,否则输出"lllll"
射天狼 2003-09-23
- 打赏
- 举报
不知你要实现什么,你现在代码的意思是:左边第一位不是零并且长度不为7,则text得到焦点,否则输出"lllll"
Jackile 2003-09-23
- 打赏
- 举报
老大，程序没错啊，要两个条件都满足啊！
xiaobird1 2003-09-23
- 打赏
- 举报
左边第一位不为0 且 输入长度不为7 进入
楼主自己屡屡吧。
楼主自己屡屡吧。
