Private Sub SectionReport1_NoData(sender As Object, e As System.EventArgs) Handles MyBase.NoData  
    Me.Cancel()  
End Sub

private void SectionReport1_NoData(Object sender, System.EventArgs e)
{
    this.Cancel();
}

Dim rpt As New SectionReport1  
rpt.Run()  
If (rpt.CurrentPage Is Nothing)
    Then  
    Console.WriteLine("データが存在しません。")  
End If

SectionReport1 rpt = new SectionReport1();  
rpt.Run();  
if (rpt.CurrentPage == null)  
{  
    Console.WriteLine("データが存在しません。");  
}

Dim m_cnnString As String  
Dim sqlString As String  
Dim m_cnn As System.Data.OleDbOleDb.OleDbConnection  
Dim m_reader As System.Data.OleDbOleDb.OleDbDataReader  
Private Sub Form1_Load(ByVal sender As _
System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
    Dim rpt As New SectionReport1()  
    m_cnnString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= ..Data\\Nwind.mdb; Persist Security Info=False"  
    SqlString = "SELECT * FROM Products where ProductID = 100"  
    m_cnn = New OleDb.OleDbConnection(m_cnnString)  
    Dim m_Cmd As New OleDb.OleDbCommand(SqlString, m_cnn)  
    If m_cnn.State = ConnectionState.Closed 
        Then  
        m_cnn.Open()  
    End If  
    m_reader = m_Cmd.ExecuteReader()  
    If m_reader.Read = False
        Then  
        MessageBox.Show("データが存在しません。")  
    Else  
        m_reader.Close()  
        m_reader = m_Cmd.ExecuteReader()  
        Me.Viewer1.Document = rpt.Document  
        rpt.Run()  
    End If  
End Sub

private static System.Data.OleDb.OleDbConnection m_cnn;  
private static System.Data.OleDb.OleDbDataReader m_reader;  
private void Form1_Load(object sender, EventArgs e)  
{  
    SectionReport rpt = new SectionReport();  
    string m_cnnString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=..Data\\Nwind.mdb; Persist Security Info=False";  
    string sqlString = "SELECT * FROM Products where ProductID = 100";  
    m_cnn = new System.Data.OleDb.OleDbConnection(m_cnnString);  
    System.Data.OleDb.OleDbCommand m_Cmd = new System.Data.OleDb.OleDbCommand(sqlString, m_cnn);  
    if (m_cnn.State == ConnectionState.Closed)  
    {  
        m_cnn.Open();  
    }  
    m_reader = m_Cmd.ExecuteReader();  
    if (m_reader.Read() == false)  
    {  
        MessageBox.Show("データが存在しません。");  
    }  
    else  
    {  
        m_reader.Close();  
        m_reader = m_Cmd.ExecuteReader();  
        this.viewer1.Document = rpt.Document;  
        rpt.Run();  
    }  
}

Dim strBuff As String

Private Sub Detail1_BeforePrint(sender As System.Object, e As System.EventArgs) Handles Detail1.BeforePrint
    strBuff = ""
    If (TextBox1.Text <> strBuff)
        Then
        TextBox1.Visible = True
    Else
        ' 重複データは非表示にします。
        TextBox1.Visible = False
    End If
    strBuff = TextBox1.Text
End Sub

Private Sub ActiveReport1_PageEnd(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.PageEnd
    ' 改ページ後、最初のデータは必ず出力します。
    strBuff = ""
End Sub

string strBuff;

private void Detail_BeforePrint(object sender, System.EventArgs eArgs)
{
    strBuff = "";
    if (TextBox1.Text != strBuff)
    {
        TextBox1.Visible = true;
    }
    else
    {
        // 重複データは非表示にします。
        TextBox1.Visible = false;
    }
    strBuff = TextBox1.Text;
}

private void rptSimpleGroup_PageEnd(object sender, System.EventArgs eArgs)  
{
    // 改ページ後、最初のデータは必ず出力します。
    strBuff = "";
}

Private Sub SectionReport1_ReportStart(sender As System.Object, e As　System.EventArgs) Handles MyBase.ReportStart
　　　　' データベースと連結します。
　　　　Dim m_cnn As OdbcConnection
　　　　Dim m_cnnString As String = ("Dsn=Nwind;trusted_connection=Yes;app=MicrosoftR Visual StudioR 2010;wsid=SystemID;database=Northwind")
　　　　Dim sqlString As String = "SELECT * FROM Products"
　　　　m_cnn = New OdbcConnection(m_cnnString)
　　　　Dim m_Cmd As OdbcCommand = New OdbcCommand(sqlString, m_cnn)
　　　　m_cnn.Open()
　　　　' DataReaderと連結します。
　　　　Dim m_reader As OdbcDataReader
　　　　m_reader = m_Cmd.ExecuteReader()
　　　　Me.DataSource = m_reader
End Sub

private void SectionReport1_ReportStart(object sender, EventArgs e)
{
　　　　// データベースと連結します。
　　　　OdbcConnection m_cnn = default(OdbcConnection);
　　　　string m_cnnString = ("Dsn=Nwind;trusted_connection=Yes;app=MicrosoftR Visual StudioR 2010;wsid=SystemID;database=Northwind");
　　　　string sqlString = "SELECT * FROM Products";
　　　　m_cnn = new OdbcConnection(m_cnnString);
　　　　OdbcCommand m_Cmd = new OdbcCommand(sqlString, m_cnn);
　　　　m_cnn.Open();
　　　　// DataReaderと連結します。
　　　　OdbcDataReader m_reader = default(OdbcDataReader);
　　　　m_reader = m_Cmd.ExecuteReader();
　　　　this.DataSource = m_reader;
}