电动门防爆电机价格:VB代码错误,亟待解决

来源：百度文库编辑：杭州交通信息网时间：2024/04/28 02:29:34

1.看看这段代码错在哪儿:
Private Sub Text1_KeyDown(KeyCode1 As Integer, Shift1 As Integer)
If KeyCode1 = vbKeyReturn Then
Command5.SetFocus
End If
End Sub
Private Sub Text2_KeyDown(KeyCode2 As Integer, Shift2 As Integer)
If KeyCode2 = vbKeyReturn Then
Command6.SetFocus
End If
End Sub
两段代码放在一起了,怎么就只有第二段可以运行?
也就是我在TEXT2里敲回车,command6有反应,我在text1里敲回车,也是command6有反应,command5怎么就没反应呢?
两个按钮的tabstop属性都是TRUE啊,
text1和command5
text2和command6
我分别放在了SSTAB的两张选项卡里,是不是一个这样的容器只能有一个按钮setfocus啊?

2.看看这怪事,你遇到过没有
Private Sub Adodc1_willmove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
On Error Resume Next
Adodc1.Caption = "记录:" & (Adodc1.Recordset.AbsolutePosition) & "/" & Adodc1.Recordset.RecordCount
End Sub

ADO中显示"记录:1/500"
一看,对了,真爽.
再试试ADO上的下一条按钮,结果还是"记录:1/500",怪了?
再按一下,又变成"记录:2/500",我看看内容,这是第三条啊,怪!
还有更怪的,我按"最后一条"那个按钮,发现变成下一条了,双击一下,变成最后一条了,这时,我再按一下"下一条",更奇怪的事情发生了,结果变成"记录:-3/500"

1、

Private Sub Text1_KeyDown(KeyCode As Integer, Shift1 As Integer)
If KeyCode = vbKeyReturn Then
Command5.SetFocus
End If
End Sub
Private Sub Text2_KeyDown(KeyCode As Integer, Shift2 As Integer)
If KeyCode = vbKeyReturn Then
Command6.SetFocus
End If
End Sub

'两个过程没有关联，不必KEYCODE1或2的。

2、没用过ADODC，但应该是触发事件用不当了。
尝试将willmove改成别的。

VB代码错误,亟待解决 VB中的以下问题,亟待解决亟待解决亟待解决亟待解决.... VB代码错误作业题，亟待解决！！笔记本对比，亟待解决！亟待解决的问题我是一个VB＋ACCESS新手，以下是我操作中出现的问题，亟待解决