vb2003怎么吧文本框的内容直接发到水晶报表排版打印?

[jdhsdj]

vb2003.net怎么吧文本框的内容直接发到水晶报表排版打印?

[蒋晟]

1 去搜索 水晶报表 参数
2 没看懂

[jdhsdj]

到那里搜索呀,一般垃圾很多,请推荐个好的

[jdhsdj]

我已经搞定,文本框内容直接发到报表了.请大家学习(请看我这段代码)

另外我的第一个问题我还没有搞定,请大家帮助




Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
Public Class Form_CrystalReport_monthxx
Inherits System.Windows.Forms.Form

Private Sub Form_CrystalReport_monthxx_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim GetTextObject1 As TextObject
Dim GetTextObject2 As TextObject
Dim oRpt As New CrystalReport_monthxx
GetTextObject1 = oRpt.ReportDefinition.ReportObjects.Item("Text1")
GetTextObject2 = oRpt.ReportDefinition.ReportObjects.Item("Text2")
TextBox_1.Text = "我的第一行程序"
TextBox_2.Text = "我的第二行程序"
GetTextObject1.Text = TextBox_1.Text
GetTextObject2.Text = TextBox_2month.Text
CrystalReportViewer1.ReportSource = oRpt
End Sub
End Class

[jdhsdj]

今天是要截贴了，请大家解答
根据abc.text参数显示报表. (详细点哦,要么看不懂:))


select id,name,work form table1 where id=abc.text (不会做)

[tangserver]

ReportDocument report = new ReportDocument();
这样才叫定义!

[tangserver]

1. 我只会报表设置,显示报表.我需要根据参数显示报表.
报表页面上的东西是固定的,你要筛选数据显示就在程序里筛选好再传给报表就行了.
2.我需要用报表模板,显示打印TextBox1.text框内容?
不太明白你的意思.

[jdhsdj]

下面的程序我看不懂呀?谁给解释解释?
report = New ReportDocument

report和ReportDocument都没有定义呀?这个程序我就运行不动.
'程序开始-----------------------------------------


using CrystalDecisions.CrystalReports.Engine;

private const string REPORT_NAME = @"..\..\CrystalReportAnalysis.rpt";
private const string TEXT_OBJECT_NAME = @"Text1";

private void Form1_Load(object sender, System.EventArgs e)
{
report = new ReportDocument();
report.Load(REPORT_NAME);
report.Refresh();

crvChart.ReportSource = report;
}

private void btnChangeText_Click(object sender, System.EventArgs e)
{
TextObject text;

text = GetTextObject(TEXT_OBJECT_NAME);

text.Text = "Hello, Haibo.NET!";

crvChart.RefreshReport();
}

private TextObject GetTextObject(string reportObjectName)
{
TextObject text;

// 按名称获取 ReportObject，将其转换为 TextObject，
//并返回此对象。
text = report.ReportDefinition.ReportObjects[reportObjectName] as TextObject;
if (text != null) return text;
else return null;
}

[jdhsdj]

我就是想知道两件事,
1. 我只会报表设置,显示报表.我需要根据参数显示报表.

select id,name,work form table1 (我会做)
select id,name,work form table1 where id=abc.text (不会做)

2.我需要用报表模板,显示打印TextBox1.text框内容?

请大家帮帮忙!谢谢大家了

[jdhsdj]

怎么截贴呢请帮助