求助，电机command2是提示数据类型错误 - 编程论坛

#2

gwtgong2012-07-08 10:30

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

#3

gwtgong2012-07-08 12:28

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

#4

gwtgong2012-07-08 19:44

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

#5

Artless2012-07-08 23:45

贴代码

#6

gwtgong2012-07-09 08:07

附件里有代码

#7

gwtgong2012-07-09 08:16

回复 5楼 Artless

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

#8

yuma2012-07-09 08:26

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

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

#9

gwtgong2012-07-09 08:49

回复 8楼 yuma

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

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

#10

yuma2012-07-09 09:10

程序代码：

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 编辑 ]

#11

gwtgong2012-07-09 09:55

回复 10楼 yuma

谢谢啊，今天找人下载下，我看下，程序保存的有问题，和我保存时的状态不一样，难道是电脑系统版本不同所致？vb都是6.0的

#12

yuma2012-07-13 16:52

程序代码：

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

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

…………

这个比较完美，允许使用BackSpace键。