VB中用DataReport做报表的几个问题，我的分全给他 50
一，如何将 DataReport.label1.caption=MainFrm.text1.text
二，如何将 datareport的Section1,也就是记录显示MainFrm.DataGrid1里的记录
问题一这样解决不行哦，老兄还有别的什么办法吗，还有要求能跟着文本框的内容变 展开
不是这么蛮干的，
1.你要插入一个DataEnvironment，在菜单[工程]里直接添加
右键再点他添加一个Command命令，给Connection和Command随便设置属性，随便设置就好了，不要让他空连接，我是教你用ADO来控制。
设置完了过后，你要添加一个DataReport
DataReport里面有Label也有Text，你拖放在报表上，在他属性里直接添写数据源和命令名称，把报表先设计好，是打印数据连接控件里的数据，不是打印DataGrid,打印DataGrid有专业的工具，如现在的VSPrint。从出发点来讲DataReport是自己画报表，给文本数据源遍历数据库。DataEnvironment数据源是不怎么好控制的，他太老了，所以我教你直接把ADO控件的数据源给他。
在窗体上事件过程中一句话就搞定了：
Set DataEnvironment1.rsCommand1.DataSource = Adodc1
要打印预览就写语句：
DataReport1.Show
在窗体中拖入一个ADO控件，完整代码如下（以一个按钮事件为例）：
Private Sub 按钮名_Click()
Adodc1.ConnctionString="Driver={SQL Server};Server=服务器IP;UID=用户名;pwd=密码;DataBase=数据库名"
Adodc1.RecordSource="Select * From 表 Where 字段='"+窗体上控件名+"'"
Adodc1.Refresh
Set DataEnvironment1.rsCommand1.DataSource = Adodc1
DataReport1.Show
End Sub
整个代码过程就这么简单，报表版式你要自己设置，报表页边距，本身宽度都要设置好，他是默认默认打印机。
如果是要打印DataGrid数据表，那简单，用个VSPrint控件解决，代码加入：
VSPrinter1.StartDoc
VSPrinter1.Zoom = 100
VSPrinter1.RenderControl = Form1.DataGrid1.hWnd
VSPrinter1.EndDoc
打印出来的是DataGrid数据加上框架，很丑的
Private Sub DataReport_Initialize()
DataReport.label1.caption=MainFrm.text1.text
End Sub
2、问题二：
你要是动态显示MainFrm.DataGrid1里的记录的话，基本上没有什么好的解决办法，因为你需要动态的增加datareport里的元素，但这样又不好控制报表的页面布局格式。所以，还是建议你换个报表控件吧，别再用VB自带的东西了，只适合初级编程时玩玩而已，实际应用的话，那不出手的。
推荐给你一个吧，用VSFLEX和VSPRINT这两个组合比较不错，你到网上搜一下吧，我一直没用这个了。
