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


  共有2572人关注过本帖树形打印复制链接

主题：值不在预期的范围内
帅哥哟，离线，有人找我吗？
刘林
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
End If

textbox4.leave 事件     老师，你好 我改成这样时，当不输入内容光标离开textbox4就是现错误：值不在预期的范围内。
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
    End If
End If

老师，问题找到了，是语音内容不能为空，另外请教我是用textbox4连续输入成绩，我想输了一个成绩后，在回车时自动记录下移，继续下一位，不用下一位按钮，这样省时间，请问怎么办？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107880 积分：548763 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/9 8:24:00 [只看该作者]

回11楼

If e.sender.text > e.Form.Controls("textbox2").text 
    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.text , DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107880 积分：548763 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/9 8:30:00 [只看该作者]

回12楼，参考：http://www.foxtable.com/webhelp/scr/0741.htm

If e.KeyCode = Keys.Enter Then
    If Tables("表A").Position < Tables("表A").Rows.Count-1 Then Tables("表A").Position += 1
End If
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 

请问是什么原因
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107880 积分：548763 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/9 10:38:00 [只看该作者]

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.Cancel = True
        End If
    End If
End If

 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1942 积分：14925 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2016/10/9 10:59:00 [只看该作者]

老师，我是想继续向表中输入内容，这样光标到是在TEXTBOX4中，记录也下移了，但不能输入内容，表中数据无变化
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107880 积分：548763 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/9 11:02:00 [只看该作者]

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.Sender.Text = ""
                e.Cancel = True
        End If
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1942 积分：14925 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2016/10/9 11:49:00 [只看该作者]

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

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:上分.rar
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107880 积分：548763 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/9 14:17:00 [只看该作者]

If e.KeyCode = Keys.Enter Then
    e.Sender.WriteValue
    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.Cancel = True
        End If
    End If
End If
 回到顶部
总数 20 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询