主题：可否做到录入成绩时不按任何键自动换行

你好，我不知道从哪开始入手，是直接就往里面输入数值吗？

我输入数却可以一直输，却达不到满分150自动换行，但是看你的演示可以，不知道为什么？

还有，我是想要纵向一列的换行，不是左右换到头再换行，不过依你现在的演示看，应该也能做到！

再次感谢！

 直接往里面数据数据就可以了。

 你在 表属性 那里编写 keypressedit 事件，代码你看看我的例子。

 基本就可以了。

好的

我再看看

 

这会在学校，是win7的系统，你的是xp下做的，调用时有错误！

 

对了，比如说在xp下自己做的项目是不是就可以在xp环境下运行，win7环境做的就可以在win7环境下运行。

 我用的是Win7，狐表做出来的东西，在windows系统都兼容。

我在win7下报错

我上传错误代码吧

此主题相关图片如下：错误代码.jpg

 再不行，就远程帮你弄一下呗……加QQ，然后说转小林。

在 表KeyUpEdit 事件里面写代码:

If e.Text = "" Then Return
        Dim maxScore As Single = 150
        If e.Text * 10 > maxScore Then
            Sendkeys.Send(Chr(9))
        End If