如何正确为报表未绑定字段填充对应缺失字段提示文本？

核心问题 #

1. 事件选择错误：你使用的Report_Load事件仅在报表加载完成时触发一次，不会针对每条记录单独执行。它会基于报表加载时读取的某一条记录（通常是数据集的第一条或最后一条）的字段值设置ErrorTextBox，之后所有记录都会沿用这个固定值，导致所有记录显示同一个提示。
2. 逻辑判断的局限性：ElseIf的逻辑是“非此即彼”，如果某条记录同时存在SpecificCitation和GeneralCitation为空的情况，只会显示第一个匹配的提示；但你的主要问题还是事件触发时机不对。

修正方案 #

1. 更换触发事件 #

将代码移到报表细节段的Format事件（Detail_Format），这个事件会在每条记录准备渲染时自动触发，确保每条记录都能单独进行字段判断。

2. 调整代码逻辑 #

根据需求选择对应的代码：

需求1：只显示第一个遇到的缺失提示

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    If IsNull(SpecificCitation) Then
        ErrorTextBox = "Missing Specific Citation"
    ElseIf IsNull(GeneralCitation) Then
        ErrorTextBox = "Missing General Citation"
    Else
        ' 无缺失时清空文本框，或自定义提示
        ErrorTextBox = ""
    End If
End Sub

需求2：显示所有缺失的提示（换行分隔）

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    Dim errorMsg As String
    errorMsg = ""
    
    If IsNull(SpecificCitation) Then
        errorMsg = errorMsg & "Missing Specific Citation" & vbCrLf
    End If
    If IsNull(GeneralCitation) Then
        errorMsg = errorMsg & "Missing General Citation" & vbCrLf
    End If
    
    ' 移除最后多余的换行符
    If Len(errorMsg) > 0 Then
        ErrorTextBox = Left(errorMsg, Len(errorMsg) - 2)
    Else
        ErrorTextBox = ""
    End If
End Sub

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