VB.NET中如何将TextBox的值传递给XtraReport的XtraLabel？

我明白你的需求——不想通过参数面板点击提交，而是点击按钮后直接把TextBox的值加载到报表的XtraLabel里。下面给你两种方案，优先用参数方式，也提供直接赋值的简单方法：

方案一：优化参数传递方式（推荐） #

你之前的思路是对的，只是少了一步手动生成报表文档，而且可以把参数设为不可见，这样就不会弹出参数面板了：

步骤： #

1. 打开XtraReport1的设计器，确保你的参数（比如命名为GetValue）的Visible属性设为False（在参数面板里找到这个参数，取消勾选“可见”）
2. 把XtraLabel的Text属性绑定到这个参数（可以用表达式编辑器写 [Parameters.GetValue]）

修改后的代码： #

Imports DevExpress.XtraPrinting
Imports DevExpress.XtraReports.UI
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim reports As New XtraReport1()
        Dim pt As New ReportPrintTool(reports)
        
        ' 给参数赋值
        reports.Parameters("GetValue").Value = Integer.Parse(TextBox1.Text)
        ' 手动生成报表文档（关键步骤！）
        reports.CreateDocument()
        
        ' 关闭参数面板
        pt.AutoShowParametersPanel = False
        ' 直接预览
        pt.ShowPreviewDialog()
    End Sub
End Class

这样修改后，点击按钮就会直接把TextBox的值传递到标签，无需任何额外操作。参数方式的好处是后续如果需要扩展报表（比如用参数过滤数据源），这个架构可以直接复用。

方案二：直接访问报表控件赋值（简单直接） #

如果你的需求很简单，也可以跳过参数，直接找到报表里的XtraLabel控件赋值：

步骤： #

1. 在XtraReport1的设计器里，给目标XtraLabel设置一个明确的Name，比如lblDisplayValue

代码实现： #

Imports DevExpress.XtraPrinting
Imports DevExpress.XtraReports.UI
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim reports As New XtraReport1()
        Dim pt As New ReportPrintTool(reports)
        
        ' 直接找到报表里的Label控件赋值
        Dim targetLabel As XtraLabel = CType(reports.FindControl("lblDisplayValue", True), XtraLabel)
        targetLabel.Text = TextBox1.Text
        
        ' 生成文档并预览
        reports.CreateDocument()
        pt.AutoShowParametersPanel = False
        pt.ShowPreviewDialog()
    End Sub
End Class

这种方法更直接，适合测试或简单场景，但如果报表结构复杂（比如Label在分组、子报表里），可能需要调整FindControl的参数来定位控件。

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