สร้าง Parameter และ Formula Fields บน Crystal Reports (VB.NET,C#)

USE [mydatabase]
GO
/****** Object:  Table [dbo].[audit]    Script Date: 03/13/2012 13:45:08 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_PADDING ON
GO
CREATE TABLE [dbo].[audit](
	[AuditID] [varchar](4) NOT NULL,
	[CustomerID] [varchar](4) NULL,
	[Date] [datetime] NULL,
	[Used] [float] NULL,
 CONSTRAINT [PK_audit] PRIMARY KEY CLUSTERED 
(
	[AuditID] ASC
)WITH (PAD_INDEX  = OFF, STATISTICS_NORECOMPUTE  = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS  = ON, ALLOW_PAGE_LOCKS  = ON) ON [PRIMARY]
) ON [PRIMARY]

INSERT INTO audit VALUES (1, 'C001', '2008-08-01', 100000);
INSERT INTO audit VALUES (2, 'C001', '2008-08-05', 200000);
INSERT INTO audit VALUES (3, 'C001', '2008-08-10', 300000);
INSERT INTO audit VALUES (4, 'C002', '2008-08-02', 400000);
INSERT INTO audit VALUES (5, 'C002', '2008-08-07', 100000);
INSERT INTO audit VALUES (6, 'C002', '2008-08-15', 300000);
INSERT INTO audit VALUES (7, 'C003', '2008-08-20', 400000);
INSERT INTO audit VALUES (8, 'C003', '2008-08-25', 200000);
INSERT INTO audit VALUES (9, 'C004', '2008-07-04', 100000);
INSERT INTO audit VALUES (10, 'C005', '2008-07-04', 200000);

GO
SET ANSI_PADDING OFF

Imports CrystalDecisions.CrystalReports.Engine

Public Class frmReport

    Private Sub btnReport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReport.Click
       
        Dim rpt As New ReportDocument()
        Dim directory As String = My.Application.Info.DirectoryPath
        'rpt.Load(directory & "\myCrystalReport1.rpt")
        rpt.Load("C:\DemoCrystalReport3\DemoCrystalReport3\myCrystalReport1.rpt")
        rpt.SetParameterValue("CustomerID", Me.txtCustomerID.Text)
        Me.CrystalReportViewer1.ReportSource = rpt
        Me.CrystalReportViewer1.Refresh()
    End Sub
End Class

using Microsoft.VisualBasic;
using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
using CrystalDecisions.CrystalReports.Engine;

public class frmReport
{

	private void btnReport_Click(System.Object sender, System.EventArgs e)
	{

		ReportDocument rpt = new ReportDocument();
		string directory = My.Application.Info.DirectoryPath;
		//rpt.Load(directory & "\myCrystalReport1.rpt")
		rpt.Load("C:\\DemoCrystalReport3\\DemoCrystalReport3\\myCrystalReport1.rpt");
		rpt.SetParameterValue("CustomerID", this.txtCustomerID.Text);
		this.CrystalReportViewer1.ReportSource = rpt;
		this.CrystalReportViewer1.Refresh();
	}
}