在你的报表中建立两个Fomula Fields,一个为记录参数sortnum,如a,b,c等。另一个名为sort,
具体内容为:
if {@sortnum}="a" then
{GBCUST.ID}
else if {@sortnum}="b" then
{GBCUST.Name}
else
{GBCUST.Address}
接着就在Record Sort Expert中的Sort Fields选为@sort。
最后在VB.NET中编程,
dim sortp as new string
dim rpt as new CrystalDecisions.CrystalReports.Engine.ReportDocument
如果 点Button1时
sortp="a"
rpt.DataDefinition.FormulaFields("sortnum").Text = "'a'"
rpt.Refresh()
CrystalReportViewer1.ReportSource = rpt