TMemoryStream *s;
创新互联坚持“要么做到，要么别承诺”的工作理念，服务领域包括：网站建设、成都网站建设、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的郴州网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！
try
{
s = new TMemoryStream;
frReport1-SaveToStream(s);
//以下代码为新增报表
Query1-SQL-Clear();
Query1-SQL-Add("insert into tb_report (r_id,r_desc,r_data) Values (报表编号,'报表说明',',:r_data)");
//Query1-ParamByName("r_sql")-AsString = FSQL;
Query1-ParamByName("r_data")-LoadFromStream(s,ftBlob);
Query1-Prepare();
Query1-ExecSQL();
//以下代码为更新报表
Query1-SQL-Clear()
Query1-SQL-Add("update tb_report set r_data=:r_data where r_id=报表编号");
Query1-ParamByName("r_data")-LoadFromStream(s,ftBlob);
Query1-Prepare();
Query1-ExecSQL();
}
__finally
{
delete s;
s = NULL;
}
----------
确实是语言不对啊.因为自己在看你的问题的时候,也尝试自己去做了.不过delphi用这种方法可行,其它的语言应该也不会查到哪去吧~
这个专业我也学得不是很好，用书上得例子吧。
某公司尽力需要了解公司在全国各地得销售情况，设计一个水晶报表。统计个地区得销售总额和全国总额
准备工作
用 SQL server 2000 创建一个数据库company 在该数据库中创建一个表Sales.用于储存区域销售数据
在表Sales 中添加若干条记录
设计报表
打开 Visual Studio.NET创建名为 Salesreport得 WINDOWS应用程序 将Form1.cs 名更改为 frmSalesReport.cs
frmSalesReport窗体得属性设置里。 吧 frmSalesReport.cs得Text属性更改为"区域销售报表"
把NAME属性更改为frmSalesReport。
在 VisualStudio.NET 菜单中选择 项目添加新项。在"添加新项"窗口得“类别”区域扩展 “本地项目项”，选择数据，在"模板"区域选择"数据集" 在"名称"那将Dataset1.xsd改名 SalesDetaset.xsd
单击"打开" 将生成一个新得结构文件 SalesDataset.xsd 该文件将显示在 ADO.NET数据集设计器中。
Visualbasic代码编辑器没有这个功能，但可以用第三方的编辑软件Emedit来实现这个功能。
1、用Emedit打开*.frm文件。
2、点工具，当前配置属性，然后勾选显示行号即可。
这样的效果用FineReport报表实现起来非常容易，只要在主报表的模板上，在需要放置子报表的单元格上右击选择“单元格元素|子报表”即插入了子报表，然后绑定子报表所需的数据源，实现让子报表的内容显示在主报表上，然后将整个cpt文件插入vb.net中。
报表是企业管理的基本措施和途径，是企业的基本业务要求，报表可以帮助企业访问、格式化数据，并把数据信息以可靠和安全的方式呈现给使用者。 简单来说,报表就是通过表格,图表等来对数据的呈现.没有计算机的时候,人们就用纸和笔来对账目进行记录汇总分析等.当计算机出现之后，人们利用计算机处理数据和界面设计的功能来生成、展示报表。计算机上的报表的主要特点是数据动态化，格式多样化，并且实现报表数据和报表格式的完全分离，用户可以只修改数据，或者只修改格式.今后为了提高报表的制作效率,更是出现了专门制作报表的工具. 而在vb中报表的使用整个过程分这个几个阶段. 首先 是报表设计器的安装和报表模版的建立 其次 是报表和数据库的连接最后vb代码的实现
CrystalReportViewer
dataset 定义数据源
.rpt 文件描述具体报表样式
再加一个调用报表的FORM，就可以实现简单的报表功能
Option Explicit
dim Report as New Cystal1
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
'调用水晶报表时置鼠标为沙漏状 CRViewer91.ReportSource = Report '该语句的赋值将在后面被修改
CRViewer91.ViewReport
Screen.MousePointer = vbDefault '调用水晶报表完成后置鼠标为默认形状
End Sub
Private Sub Form_Resize()
CRViewer91.Top = 0
CRViewer91.Left = 0
CRViewer91.Height = ScaleHeight
CRViewer91.Width = ScaleWidth
End Sub
