变量未定义：

[螺丝刀2000]

Private Sub Text47_Change()
If KeyCode = vbKeyReturn Then
Text48.SetFocus
End If
End Sub

工程运行到KEYCODE时提示：
编义错误
变量未定义
在线等待！急！

[tony_jian]

If KeyAscii = 13 Then
Text48.SetFocus
End If

[liuzhanwen]

If KeyAscii = 13 Then
Text48.SetFocus
End If

[螺丝刀2000]

我写的代码也没有错啊！

[dyx]

同上

[螺丝刀2000]

If KeyAscii = 13 Then
Text48.SetFocus
End If

运行到KEYASCII时

还是提示变量未定义！

请大家帮帮忙！

[dyx]

Private Sub Text47_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
Text48.SetFocus
End If
End Sub

[jyu1221]

Private Sub Text47_Change()
If KeyCode = vbKeyReturn Then
Text48.SetFocus
End If
End Sub
-----------------------------------------------
在Change中是不能访问KeyCode的，
只能在
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

End Sub
这里访问KeyCode这个变量

[footballboy]

你可能是设计时双击Text47打开吧，一般打开的是Text47_Change事件处理过程，根据你想实现的功能看，应该用Text47_KeyPress才对，注意到没有Text47_Change过程是没有参数的，Text47_KeyDown带有参数KeyAscii

Private Sub Text47_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
Text48.SetFocus
End If
End Sub

[gaoqi5037]

气死!