VBA MVP模式用户表单调试：组件通信异常与对象未设置错误排查

错误Object variable or With block variable not set的核心原因是：用户操作的表单实例中this.Model未被初始化（为Nothing），调用PONumContent时直接访问this.Model.PO触发了错误。同时当前代码的MVP职责划分存在问题，View不应直接操作Model，Presenter需要正确关联当前的View和Model实例。

修正步骤与代码 #

1. Model类（clsEntry）：保持不变 #

Option Explicit

Private Type DEFClass
    PO As Integer
End Type

Private this As DEFClass

Public Property Get PO() As Integer
    PO = this.PO
End Property

Public Property Let PO(ByVal value As Integer)
    this.PO = value
End Property

2. View（DataEntryForm）：仅负责提供用户输入，不直接操作Model #

修改后代码：

Option Explicit
Private thisModel As clsEntry
Private myPresenter As PresenterModule

' 初始化时关联Presenter与Model
Private Sub UserForm_Initialize()
    Set myPresenter = New PresenterModule
    Set thisModel = New clsEntry
    myPresenter.SetView Me
    myPresenter.SetModel thisModel
End Sub

' 提供获取PO编号的方法，附带输入验证
Public Function GetPONumber() As Integer
    If IsNumeric(PONumber.Text) Then
        GetPONumber = CInt(PONumber.Text)
    Else
        GetPONumber = 0 ' 可替换为弹窗提示非法输入
    End If
End Function

' 提交按钮点击时，通知Presenter处理逻辑
Private Sub Submit_Click()
    myPresenter.HandleSubmit
End Sub

' Model的读写属性
Public Property Set Model(ByVal value As clsEntry)
    Set thisModel = value
End Property

Public Property Get Model() As clsEntry
    Set Model = thisModel
End Property

3. Presenter模块（PresenterModule）：负责协调View与Model，处理业务逻辑 #

新建标准模块命名为PresenterModule，代码如下：

Option Explicit
Private currentView As DataEntryForm
Private currentModel As clsEntry

' 关联当前View实例
Public Sub SetView(ByVal view As DataEntryForm)
    Set currentView = view
End Sub

' 关联当前Model实例
Public Sub SetModel(ByVal model As clsEntry)
    Set currentModel = model
End Sub

' 处理提交逻辑：获取输入、更新Model、写入单元格
Public Sub HandleSubmit()
    currentModel.PO = currentView.GetPONumber
    ' 将Model中的PO值写入Sheet1的A1单元格
    ThisWorkbook.Sheets("Sheet1").Range("A1").Value = currentModel.PO
    ' 可添加表单关闭等后续操作
    currentView.Hide
End Sub

关键修正点 #

• 职责分离：View仅负责展示和提供用户输入，不直接修改Model，提交操作通知Presenter处理。
• 实例关联：在表单初始化阶段创建并关联Presenter、Model实例，确保当前操作的表单拥有有效的Model引用。
• Presenter协调：统一由Presenter完成数据传递、Model更新、业务操作（写入单元格），符合MVP模式的职责划分。

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