VBA用户窗体变量传递异常：frmMatrix数据滞后显示至frmForm

核心问题分析 #

1. 模块级公共变量的状态残留：你使用的index、population、category是窗体模块的公共变量，当窗体未完全重置时，这些变量会保留上一次的赋值。尤其category仅在index < 80时赋值，其他场景下直接复用旧值，必然导致数据滞后。
2. 控件值获取方式冗余：若使用的是VBA内置的TextBox/ComboBox控件，无需通过.Object.Value获取值，直接使用.Value即可，多余的.Object可能引发不可预期的取值问题。
3. 参数传递依赖全局状态：通过公共变量传递数据，而非直接传递当前上下文的局部值，容易受之前执行流程的影响。

修复步骤与代码修改 #

1. 移除模块级公共变量，改用局部变量+参数传递

删除窗体模块顶部的Public index As Integer、Public category As String、Public population As String，改为在cmdGo_Click中声明局部变量，并通过参数传递给Preset_Form。

2. 完善category的全分支赋值

确保所有Heat Index范围都能给category赋值，避免残留旧值。

3. 修正控件值获取方式

去掉.Object，直接使用控件的.Value属性。

4. 优化Preset_Form的参数接收逻辑

改为接收传入的参数，直接赋值给目标窗体控件，彻底脱离对全局变量的依赖。

修改后的完整代码 #

Option Explicit

Private Sub cmdGo_Click()
    Dim currentIndex As Integer
    Dim currentPopulation As String
    Dim currentCategory As String
    Dim answer As VbMsgBoxResult
    
    If ValidateMatrixEntries() = True Then
        ' 直接获取当前控件的值，使用局部变量存储
        currentIndex = frmMatrix.txtIndex.Value
        currentPopulation = frmMatrix.cmbPopulation.Value
        
        ' 完善所有分支的category赋值，覆盖所有Heat Index情况
        If currentIndex < 80 Then
            currentCategory = "Category 1"
        ElseIf currentIndex < 90 Then
            currentCategory = "Category 2"
        ElseIf currentIndex < 105 Then
            currentCategory = "Category 3"
        Else
            currentCategory = "Category 4"
        End If
        
        ' 输出防护措施的代码保留在此处
        
        answer = MsgBox("Would you like to record these actions in the log?", vbQuestion + vbYesNo, "Record Entry")
        
        If answer = vbYes Then
            ' 通过参数传递当前的最新值
            Call Preset_Form(currentIndex, currentPopulation, currentCategory)
        End If
        Unload frmMatrix
    End If
End Sub

Public Sub Preset_Form(heatIndex As Integer, popGroup As String, stressCategory As String)
    ' 确保frmForm是全新实例（若之前已加载则先卸载）
    If Not frmForm Is Nothing Then
        Unload frmForm
    End If
    
    ' 赋值并显示窗体
    frmForm.txtIndex.Value = heatIndex
    frmForm.cmbPopulation.Value = popGroup
    frmForm.cmbAction.Value = stressCategory
    frmForm.Show vbModal ' 建议使用模态显示，避免用户同时操作多个窗体
End Sub

额外注意事项 #

• 检查ValidateMatrixEntries()函数，确保它不会在验证过程中修改控件的Value属性，这是导致控件值回滚的常见隐藏原因。
• 若使用的是ActiveX控件而非内置控件，需确认.Value属性的正确性，必要时改用控件的专属取值方法（如ActiveX TextBox的.Text属性）。

内容的提问来源于stack exchange，提问作者Gregory Cormier