[ 本帖最后由 yh0825 于 2007-11-11 01:10 编辑 ]作者: gdfsslec 时间: 2007-11-10 20:59
把这个事件改一下就可以了
Private Sub List12_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Me.Text2 = Me.List12
End If
End Sub
改为
Private Sub List12_BeforeUpdate(Cancel As Integer)
Me.Text2 = Me.List12
End Sub
老实说想法是好,但设计的细节不理想。作者: yh0825 时间: 2007-11-11 01:13
谢谢!因为水平有限,真得考虑不太周全,有些时候设计上如果好一些,问题就不会不那么多的!