问
If Not (Val(Trim(Text7)) >= t7 And Val(Trim(Text7)) <= y7) Then
MsgBox "数据 C 不在要求范围之内，请确认此钢号对应的范围后重新填写！", vbInformation, "数值错误"
'Text10.Text = .Fields("c1")
Text7.SetFocus
End If
执行后为什么 text7还得不到焦点呢?
问题点数：10、回复次数：8Top
1 楼laviewpbt（人一定要靠自己）回复于 2004-12-01 15:48:13 得分 0
If Not (Val(Trim(Text1)) > 3 And Val(Trim(Text1)) <= 3) Then
MsgBox "数据 C 不在要求范围之内，请确认此钢号对应的范围后重新填写！", vbInformation, "数值错误"
'Text10.Text = .Fields("c1")
Text2.SetFocus
End If
Top
2 楼songyaowu（不以分多而蹭之;不因分少而不答; www.vb99.com）回复于 2004-12-01 15:53:27 得分 0
不会吧，你的这段代码是写在哪里的？我的意思是说，如果写在一个按钮的单击事件中就不会有问题。你是怎么写的呢？Top
3 楼jannock（我是新手）回复于 2004-12-01 16:08:33 得分 0
Private Sub Text7_Validate(Cancel As Boolean)
If Trim(Text7) <> "" Then
If Not (Val(Trim(Text7)) >= t7 And Val(Trim(Text7)) <= y7) Then
MsgBox "数据 C 不在要求范围之内，请确认此钢号对应的范围后重新填写！", vbInformation, "数值错误"
'Text10.Text = .Fields("c1")
Text7 = ""
Text7.SetFocus
End If
End If
End Sub
是在文本框的 Validate 事件里面Top
4 楼baoaya（点头)(大风起兮云飞扬）回复于 2004-12-01 16:09:25 得分 0
代码应该没什么问题Top
5 楼baoaya（点头)(大风起兮云飞扬）回复于 2004-12-01 16:11:25 得分 0
Private Sub Text7_Validate(Cancel As Boolean)
If Trim(Text7) <> "" Then
If Not (Val(Trim(Text7)) >= t7 And Val(Trim(Text7)) <= y7) Then
MsgBox "数据 C 不在要求范围之内，请确认此钢号对应的范围后重新填写！", vbInformation, "数值错误"
'Text10.Text = .Fields("c1")
Text7 = ""
Cancel =true ' 取消失去焦点
End If
End If
End Sub
Top
6 楼jannock（我是新手）回复于 2004-12-01 16:12:33 得分 0
但是 执行后 弹出msgbox 点 确定 焦点 回不了 text7 上面去呀！！
郁闷中！！！！！Top
7 楼baoaya（点头)(大风起兮云飞扬）回复于 2004-12-01 16:13:44 得分 10
Text7.SetFocus 代替为 Cancel =trueTop
8 楼jannock（我是新手）回复于 2004-12-01 16:14:37 得分 0
谢谢 baoaya(点头) 老大 问题解决了！！！！
现在真是爽呀！！1Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
