Excel UserForm点击Edit按钮时显示错误信息问题排查

我正在做一个学习用的个人项目，现在遇到个问题：点击Edit按钮时，Excel UserForm里会填充错误的信息，导致我必须重新输入才能编辑对应行。我试过调整Me.txt类语句的顺序，但没用。我VBA经验不多，附上相关代码和界面截图，求排查原因。

界面截图：

相关VBA代码：

Private Sub cmdEdit_Click()

    If Selected_List = 0 Then

            MsgBox "NO row is selected.", vbOKOnly + vbInformation, "Edit"

            Exit Sub

    End If

    'Code to update the value to respective controls

    Me.txtRowNumber.Value = Application.WorksheetFunction.Match(Me.lstDatabase.List(Me.lstDatabase.ListIndex, 0), _
    ThisWorkbook.Sheets("Database").Range("A:A"), 0)

    Me.txtJCN.Value = Me.lstDatabase.List(Me.lstDatabase.ListIndex, 1)

    Me.cmbLocation.Value = Me.lstDatabase.List(Me.lstDatabase.ListIndex, 2)

    Me.cmbStatus.Value = Me.lstDatabase.List(Me.lstDatabase.ListIndex, 3)

    Me.txttaskname.Value = Me.lstDatabase.List(Me.lstDatabase.ListIndex, 4)

    Me.txtdateopened.Value = Me.lstDatabase.List(Me.lstDatabase.ListIndex, 5)

    Me.txtproblem.Value = Me.lstDatabase.List(Me.lstDatabase.ListIndex, 6)

    Me.txtfixaction.Value = Me.lstDatabase.List(Me.lstDatabase.ListIndex, 8)

    MsgBox "Please make the required changes and clock on 'SAVE' button to update.", vbOKOnly + vbInformation, "Edit"


End Sub

从代码和描述来看，核心问题集中在以下几点：

• 列索引错误：Me.txtfixaction.Value使用了索引8，但前面的控件依次对应索引0到6，中间跳过了7。如果你的列表框lstDatabase中修复操作的内容在第8列（VBA索引从0开始，对应实际第8列是索引7），这里应该写成Me.lstDatabase.List(Me.lstDatabase.ListIndex, 7)，索引写错会导致获取到错误列的数据，甚至空值。
• 选中判断逻辑存疑：代码用Selected_List = 0判断是否选中行，但Selected_List的定义未给出，有可能逻辑错误导致选中行时误触发提示，或未选中时错误执行填充。建议改用VBA标准判断方式：Me.lstDatabase.ListIndex <> -1（列表框未选中时ListIndex返回-1）。
• 日期格式不匹配：如果txtdateopened是日期类型控件，直接赋值列表框文本可能出现格式错误，需用CDate()转换为日期类型后再赋值。

修正后的核心代码示例：

Private Sub cmdEdit_Click()

    ' 标准判断列表框是否选中行
    If Me.lstDatabase.ListIndex = -1 Then
            MsgBox "未选中任何行。", vbOKOnly + vbInformation, "编辑"
            Exit Sub
    End If

    ' 提取选中索引，简化代码
    Dim selectedIdx As Integer
    selectedIdx = Me.lstDatabase.ListIndex

    Me.txtRowNumber.Value = Application.WorksheetFunction.Match(Me.lstDatabase.List(selectedIdx, 0), _
    ThisWorkbook.Sheets("Database").Range("A:A"), 0)

    Me.txtJCN.Value = Me.lstDatabase.List(selectedIdx, 1)
    Me.cmbLocation.Value = Me.lstDatabase.List(selectedIdx, 2)
    Me.cmbStatus.Value = Me.lstDatabase.List(selectedIdx, 3)
    Me.txttaskname.Value = Me.lstDatabase.List(selectedIdx, 4)
    ' 转换为日期格式避免显示错误
    Me.txtdateopened.Value = CDate(Me.lstDatabase.List(selectedIdx, 5))
    Me.txtproblem.Value = Me.lstDatabase.List(selectedIdx, 6)
    ' 修正索引为7，对应正确列
    Me.txtfixaction.Value = Me.lstDatabase.List(selectedIdx, 7)

    MsgBox "请修改所需内容，然后点击'SAVE'按钮完成更新。", vbOKOnly + vbInformation, "编辑"

End Sub

优先检查列表框lstDatabase的列对应关系，确保每个控件的索引和实际列位置匹配，这是最可能导致填充错误的原因。

内容的提问来源于stack exchange，提问作者Aa Ron