彩票走势图

下面的示例演示了DevExpress报表控件XtraReports在运行的时候如何创建一个新的空白报表（XtraReport类的一个实例），创建数据对象，并绑定MDB文件（通过XtraReportBase.DataSource、XtraReportBase.DataAdapte和traReportBase.DataMember 属性），然后用包含XRLabel（显示数据来自该文件）的DetailBand填充报表。

C#

using System;
using System.Data;
using System.Data.OleDb;
using System.Windows.Forms;
using DevExpress.XtraReports.UI;
// ...

private void button1_Click(object sender, EventArgs e) {
// Create an empty report.
XtraReport report = new XtraReport();

// Create data objects.
OleDbDataAdapter adapter = new OleDbDataAdapter("SELECT * FROM Categories",
@"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=..\..\nwind.mdb");
DataSet ds = new DataSet();
adapter.FillSchema(ds, SchemaType.Source);

// Bind the report to data.
report.DataSource = ds;
report.DataAdapter = adapter;
report.DataMember = "Table";

// Add a detail band to the report.
DetailBand detailBand = new DetailBand();
detailBand.Height = 50;
report.Bands.Add(detailBand);

// Add a label to the detail band.
XRLabel label = new XRLabel();
label.DataBindings.Add("Text", null, "CategoryName");
detailBand.Controls.Add(label);

// Show the report's print preview.
report.ShowPreview();
}

VB
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Windows.Forms
Imports DevExpress.XtraReports.UI
' ...

Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) _
Handles button1.Click
' Create an empty report.
Dim report As New XtraReport()

' Create data objects.
Dim adapter As New OleDbDataAdapter("SELECT * FROM Categories", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=..\..\nwind.mdb")
Dim ds As New DataSet()
adapter.FillSchema(ds, SchemaType.Source)

' Bind the report to data.
report.DataSource = ds
report.DataAdapter = adapter
report.DataMember = "Table"

' Add a detail band to the report.
Dim detailBand As New DetailBand()
detailBand.Height = 50
report.Bands.Add(detailBand)

' Add a label to the detail band.
Dim label As New XRLabel()
label.DataBindings.Add("Text", Nothing, "CategoryName")
detailBand.Controls.Add(label)

' Show the report's print preview.
report.ShowPreview()
End Sub