请帮忙找找错误，详细说明最好，先谢谢了

问题补充：command2，是删除text7.text中内容的序号的那一行数据

期待中.........

？？？？？？？？？？？？？

贴代码

附件里有代码

我这台电脑上没有那个程序，公司网络禁用了下载，所以白天贴不上，麻烦你看看我上传的附件吧，帮找找错误

D:\VB\3D\3Dsjcjk.mdb 不是一个有效的路径，请检查改目录下是否有此文件。



你的文本框，有的是只能输入数字的，结果，英文什么的都能输入，这会导致某些代码运行出错。

压缩文件里有这个文件，请问怎么设置下text的属性，定义它的内容只能是数字？新手请多指导
adodc和datagrid怎么保存后再打开都变成picturebox控件了呢？
当时打开的时候出现加载日志错误，不知道为题出在哪里？

[ 本帖最后由 gwtgong 于 2012-7-9 11:05 编辑 ]

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > 57 Or KeyAscii < 48 Then KeyAscii = 0
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii > 57 Or KeyAscii < 48 Then KeyAscii = 0
End Sub


…………

或者：

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > 57 Or KeyAscii < 48 Then Text1.text = ""
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii > 57 Or KeyAscii < 48 Then Text2.text = ""
End Sub

…………

这个VB编程教材的第一章好像就教了吧。

最好在系统提供的textbox事件驱动代码里 添加代码，否则有可能以上代码复制进去也无效，因为VB比较认可自己生成的事件驱动代码。


3Dsjcjk.mdb最好直接放在D:\VB\3D\3Dsjcjk.mdb再试，有问题可以翻看MSDN。

[ 本帖最后由 yuma 于 2012-7-9 10:19 编辑 ]