'这是一个我自己写的FILL函数
InitDataAdapter("select * from codes where id=1", Adapter1, DataSet1, "codes")
Dim dry As New CrystalReport1
dry.SetDataSource(DataSet1.Tables(0))
CView1.ReportSource = dry
'这里,我以为你是要改变某个文本项,以下可以不要了
'Dim GetTextObject As CrystalDecisions.CrystalReports.Engine.TextObject
'GetTextObject = dry.ReportDefinition.ReportObjects.Item("text1")
'GetTextObject.Text = "love"