值不在预期的范围内 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 值不在预期的范围内

共有2575人关注过本帖树形打印复制链接主题：值不在预期的范围内

刘林

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1942 积分：14925 威望：0 精华：0 注册：2016/4/28 9:58:00

值不在预期的范围内 发帖心情

Post By：2016/10/8 16:03:00 [显示全部帖子]

If e.sender.value > e.Form.Controls("textbox2").value

If e.Form.Controls("CheckBox3").checked = True

Dim sp As New DotNetSpeech.SpVoice()

sp.rate = 6

sp.Speak("输入值大了", DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)

End If

e.sender.value = Nothing

e.sender.Select()

Else

If e.Form.Controls("CheckBox3").checked = True

sp.Speak(e.sender.value, DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)

End If

老师，请问上面代码出现：值不在预期的范围内。什么问题

刘林

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1942 积分：14925 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2016/10/8 16:32:00 [显示全部帖子]

哦，不好意思，这是textbox4.leave事件，textbox4绑定双精度字段，试了上面的不行,谢谢

刘林

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1942 积分：14925 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2016/10/8 17:02:00 [显示全部帖子]

老师，改不来呀

刘林

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1942 积分：14925 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2016/10/8 17:23:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:desktop.rar

请帮指导

刘林

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1942 积分：14925 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2016/10/8 19:44:00 [显示全部帖子]

更加错了，请问是什么原因，怎么解决

刘林

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1942 积分：14925 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2016/10/8 19:54:00 [显示全部帖子]

If e.sender.value > e.Form.Controls("textbox2").value

If e.Form.Controls("CheckBox3").checked = True

Dim sp As New DotNetSpeech.SpVoice()

sp.rate = 6

sp.Speak("输入值大了", DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)

End If

e.sender.text = 0

e.sender.Select()

Else

If e.Form.Controls("CheckBox3").checked = True

sp.Speak(e.sender.value, DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)

End If

textbox4.leave 事件老师，你好我改成这样时，当不输入内容光标离开textbox4就是现错误：值不在预期的范围内。

刘林

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1942 积分：14925 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2016/10/8 20:10:00 [显示全部帖子]

If e.sender.value > e.Form.Controls("textbox2").value

If e.Form.Controls("CheckBox3").checked = True

Dim sp As New DotNetSpeech.SpVoice()

sp.rate = 6

sp.Speak("输入值大了", DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)

End If

e.sender.text = 0

e.sender.Select()

Else

If e.Form.Controls("CheckBox3").checked = True

If e.sender.value > 0

sp.Speak(e.sender.value, DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)

Else

sp.Speak("无成绩", DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)

End If

老师，问题找到了，是语音内容不能为空，另外请教我是用textbox4连续输入成绩，我想输了一个成绩后，在回车时自动记录下移，继续下一位，不用下一位按钮，这样省时间，请问怎么办？

刘林

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1942 积分：14925 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2016/10/9 10:28:00 [显示全部帖子]

老师，我是想在记录下移后，光标还留在textbox4中继续输入，下面代码不行呢

If e.KeyCode = Keys.Enter Then
    If Tables("上分_table1").Position < Tables("上分_table1").Rows.Count-1 Then
        If e.Form.controls("CheckBox1").checked =True And e.Form.controls("CheckBox2").checked =False
            Tables("上分_table1").Position += 1
            e.Form.Controls("textbox4").Select()
        End If
    End If
End If

请问是什么原因

刘林

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1942 积分：14925 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2016/10/9 10:59:00 [显示全部帖子]

老师，我是想继续向表中输入内容，这样光标到是在TEXTBOX4中，记录也下移了，但不能输入内容，表中数据无变化

刘林

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1942 积分：14925 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2016/10/9 11:49:00 [显示全部帖子]

老师，请看下，这样把原表数据都删了，谢谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:上分.rar

下一主题 >> << 上一主题

总数 11 1 2 下一页

主题：值不在预期的范围内