Dim myRpt as new CrystalReport1
Dim paraStartDate,paraEndDate,paraUser As TextObject
'设定对象为模板中的参数
'下面用到的就是模板中的文本对象,名字就是双引号中的内容。
paraStartDate = myRpt.ReportDefinition.ReportObjects("txtStartDate")
paraEndDate = myRpt.ReportDefinition.ReportObjects("txtEndDate")
paraUser = myRpt.ReportDefinition.ReportObjects("txtCurrentUser")
'赋值
paraStartDate.Text = FormatDateTime(DTPStart.Value,DateFormat.ShortDate)
paraEndDate.Text = FormatDateTime(DTPEnd.Value,DateFormat.ShortDate)
paraUser.Text = CurrentUser
myRpt.Refresh()
rptVew.ReportSource = myRpt
当然了,在窗体的加载事件中要写入登陆语句:
myRpt.SetDatabaseLogon("sa","123")
这样就可以了。