在控件的第一列输入员工编码，则在对应行的第二列显示员工名称，请问这是触发哪一个事件？？应该怎样写代码？？？

Dim i, j
    With MSFlexGrid1
        
        .ColAlignment(0) = flexAlignCenterCenter
        .TextMatrix(0, 0) = "员工编码"
        .ColWidth(0) = 480
        
        .ColAlignment(1) = flexAlignCenterCenter
        .TextMatrix(0, 1) = "员工名称"
        .ColWidth(1) = 3500
        
        .BackColorFixed = &HFFFFC0
        .Rows = 11

        For i = 1 To 10
'            .Row = i - 1
            .TextMatrix(i, 0) = i
            .TextMatrix(i, 1) = Chr(64 + i)
        Next i
    End With

写哪看需求吧~

2楼可能是误会我的意思了。第一列输入员工编码后，回车时，系统搜寻员工数据表，当搜到员工编码与输入编码相同时，则把员工名称显示到对应行的第二列上。

TextBox , CommandButton , MSFlexGrid

Option Explicit

Dim UserData() As String, UserDataCount As Integer

Private Sub Command1_Click()
Dim UserID As Integer, UserName As String
    
    If Text1.Text <> "" Then
        If IsNumeric(Trim(Text1.Text)) = True Then
        
            UserID = Trim(Text1.Text)
            
            If CInt(UserID) <> 0 Then
            
                'Query the database 查完将资料写到UserName变量中
                
                If UserName <> "" Then
                    UserData(UserDataCount) = UserID & "," & UserName '预留
                    UserDataCount = UserDataCount + 1
                    ReDim Preserve UserData(UserDataCount)
                Else
                    MsgBox "No Data !"
                    Exit Sub
                End If
            End If
        
            With MSFlexGrid1
                
                .Cols = 3
                .Rows = UserDataCount + 1
                
                .ColAlignment(1) = flexAlignCenterCenter
                .TextMatrix(0, 1) = "AAA"
                
                .ColAlignment(2) = flexAlignCenterCenter
                .TextMatrix(0, 2) = "BBB"
                
                .TextMatrix(UserDataCount, 1) = UserID
                .TextMatrix(UserDataCount, 2) = UserName
            End With
        End If
        MsgBox "这不是数字 !"
    End If
    Text1.Text = ""
End Sub

Private Sub Form_Initialize()
    UserDataCount = 0
End Sub

Private Sub Form_Load()
    ReDim UserData(UserDataCount) '预留
End Sub

大概是这个感觉吧~没RUN过不清楚~