变向实现动态水晶报表

往往初学者觉得水晶报表像datagrid一样，给它个数据源，然后它就会显示出来
不过这种动态的水晶报表也不是不能实现，只是要变向的实现，绝对的话得问水晶开发商了
以下大概地讲一下如何来实现，原理是这样，具体的要求需要自己来调用了
主要步骤如下：
1.在水晶报表中插入FormulaFields,text object
2.在程序中
Dim dry As New CrystalReport1 '项目中水晶报表类名CrystalReport1
'文本1
dry.ReportDefinition.ReportObjects.Item("text1").Left = 12 '排版
dry.ReportDefinition.ReportObjects.Item("text1").ObjectFormat.EnableCanGrow = True
Dim GetTextObject1 As CrystalDecisions.CrystalReports.Engine.TextObject
GetTextObject1 = dry.ReportDefinition.ReportObjects.Item("text1")
GetTextObject1.Text = "love you.........." '付值
'字段1
dry.ReportDefinition.ReportObjects.Item("t1").Left = 12 '排版
dry.DataDefinition.FormulaFields("t1").Text = "{codes.type_id}" '付值,表名.字段
3.基本完成
------------------------------------------------------------------------------------------
参考：
1、通过 ReportDocument 对象的 DataDefinition 属性来检索 DataDefinition 对象。
ReportDocument 成员
公共实例属性
DataDefinition DataDefinition。获取 DataDefinition 对象。
2、DataDefinition 类
DataDefinition 成员 | CrystalDecisions.CrystalReports.Engine 命名空间
要求
命名空间：CrystalDecisions.CrystalReports.Engine
平台：Windows 98，Windows NT 4.0，Windows Millennium Edition，Windows 2000，Windows XP