Question

vb6中如何在TEXT1中输入数据，在MSHFlexGrid控件中实时显示根据TEXT1中的条件查询到的数据并写入TEXT1中

vb6中如何在TEXT1中输入数据，在MSHFlexGrid控件中实时显示根据TEXT1中的条件查询到的数据（这个我已实现），现在是当在TEXT1中按下1、回车踺时，不做响应，保留刚输入的数据，焦点跳转到TEXT2上。2、按方向下踺时，焦点移到MSHFlexGrid控件的第二条数据上,上下踺选择数据，回车后，将MSHFlexGrid控件中的数据输入到CELL1,焦点跳转到TEXT2上。3、当按下空格踺后，不论MSHFlexGrid控件中的数据多少，只将第一条输入到TEXT1中，焦点跳转到TEXT2上。

有好多常用软件有这种效果的。
搞了两天没弄好，求指点或代码。
2、按方向下踺时，焦点移到MSHFlexGrid控件的第二条数据上,上下踺选择数据，回车后，将MSHFlexGrid控件中的数据输入到TEXT1,焦点跳转到TEXT2上。

Answer 1

思路：你的要求全部是键盘按下事件。所以应该用控件的KeyDown事件来写代码。
而KeyDown事件中包含参数KeyCode ，即：每个键按下后返回的值，
所以，可以用 MsgBox KeyCode 语句来得到按下某个键时返回的值，
比如：按下回车踺时， MsgBox KeyCode 弹出提示13 ，这个13就是回车踺的值。

我按你的要求大致写了个代码，并且已经测试通过。。
如果某些小地方不符合你的要求，请参照我的代码自己修改下。
最好不要像部分知友那样，一点也不动脑，追问个没完没了！
Private Sub MSHFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
'MsgBox KeyCode
If KeyCode = 13 Then
Me.Text1 = Me.MSHFlexGrid1.Text
Me.Text2.SetFocus
ElseIf KeyCode = 32 Then
Me.MSHFlexGrid1.Row = 0
Me.Text1 = Me.MSHFlexGrid1.Text
Me.Text2.SetFocus
End If
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
'MsgBox KeyCode
If KeyCode = 13 Then
Me.Text2.SetFocus
ElseIf KeyCode = 40 Then
Me.MSHFlexGrid1.SetFocus
Me.MSHFlexGrid1.Row = 1
End If
End Sub