8) 使用PULL模式下的方法,建立一个WebForm 建立一个Crystal Report Viewer 控件 9) 建立一个Crystal Report Viewer 控件,并设定其属性,此处与PULL模式下是一致的。 Code Behind 代码: 10) 在Page_Load方法中使用下面的子函数: VB.Net代码: Sub BindReport() Dim myConnection As New SqlClient.SqlConnection() myConnection.ConnectionString= "server= (local)\NetSDK;database=pubs;Trusted_Connection=yes" Dim MyCommand As New SqlClient.SqlCommand() MyCommand.Connection = myConnection MyCommand.CommandText = "Select * from Stores" MyCommand.CommandType = CommandType.Text Dim MyDA As New SqlClient.SqlDataAdapter() MyDA.SelectCommand = MyCommand Dim myDS As New Dataset1() '这就是我们在设计模式上使用的DataSet MyDA.Fill(myDS, "Stores") '你不得不使用与你前面DataSet相同名字。 Dim oRpt As New CrystalReport1() ' 水晶报表绑定