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

思路：你的要求全部是键盘按下事件。所以应该用控件的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