在VC6.0使用水晶报表.简单报表已经搞定,不会做子报表.

allen_zhaozhencn 2005-01-28 04:29:09
环境: vc6.0(sp5), win2000 professional. (sp3), 后台数据库: SQL Server2000

我用的水晶报表版本4.5.1.43. 在水晶报表设计中,怎么也找不到哪里做子报表.急阿.!

...全文
268 10 打赏 收藏 举报
写回复
10 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
llm06 2005-02-03
4的版本,没怎么用过,不好意思
学习!
  • 打赏
  • 举报
回复
allen_zhaozhencn 2005-02-02
可能各位没有明白我的意思.

我的问题是一个报表rpt的设计问题,而不是在VC中调用的问题.

报表格式要求如下:
整个报表有两个部分. 主报表部分与子报表部分.假设主报表打印在第1页.子报表可能跨越几张纸(如1,2,3,4),在第1页主报表下方和2,3,4页中显示子报表. 到第5张重新开始打印主报表部分.接着又是几张连接的子报表. 依此下去. 我无法处理子报表的跨页与主报表的衔接.
  • 打赏
  • 举报
回复
flybirdlee 2005-02-02
1、你先设计好自己的报表abc.rpt(包含子报表)。
2、用VC来调用显示abc.rpt就可以了。
我自己用VC编了一个EXE的程序,支持将报表名、参数用命令行的方式来打开报表。
附部分源代码:
IApplicationPtr m_Application; IReportPtr m_Report;
CCrystalReportViewer9 m_Viewer
variant_t* m_pVarArray //存报表参数的数组
/*---------------------------------------*/

if (!AfxOleInit())
{
AfxMessageBox("Ole库创建失败!");
return FALSE;
}
HRESULT hr = m_Application.CreateInstance (__uuidof(Application));
if(FAILED(hr))
{
AfxMessageBox("水晶报表初始化出错!", MB_ICONINFORMATION);
return false;
}
try{
m_Report = m_Application->OpenReport (bstr_t(m_strReportFileName));
m_Report->Database->Tables->Item[1]->SetLogOnInfo(
bstr_t(m_strServer),bstr_t(m_strDatabase),bstr_t(m_strUser),bstr_t(m_strPwd));

IParameterFieldDefinitionPtr ptrItem;
bstr_t bName;
CString strParam;
for(int i=0 ; i<m_nParam; i++)
{
ptrItem = m_Report->ParameterFields->Item[i+1];
ptrItem->AddCurrentValue(m_pVarArray[i]); //variant_t* m_pVarArray 存报表参数
}
m_Viewer.SetReportSource(m_Report);

//显示报表工具条
m_Viewer.SetDisplayToolbar (true);
//显示报表左边的分组树
m_Viewer.SetDisplayGroupTree(false);
//显示控件边框
m_Viewer.SetDisplayBorder (true);
//显示Tabs
m_Viewer.SetDisplayTabs(true);
//显示工具栏上导出按钮
m_Viewer.SetEnableExportButton(true);
//显示工具栏上刷新按钮
m_Viewer.SetEnableRefreshButton(false);
//刷新数据
// m_Viewer.Refresh();

m_Viewer.ViewReport();
m_Viewer.Zoom(1);
}
catch(_com_error &ce)
{
AfxMessageBox(ce.Description() , MB_ICONINFORMATION);
}
catch(CException* pEx)
{
pEx->ReportError();
}
if(m_Report)
{
m_Report->Release();
m_Report = NULL;
}
if(m_Application)
{
m_Application->Release();
m_Application = NULL;
}
return true; //成功返回
if(m_Report)
{
m_Report->Release();
m_Report = NULL;
}
if(m_Application)
{
m_Application->Release();
m_Application = NULL;
}
return true; //成功返回

  • 打赏
  • 举报
回复
hxzb7215191 2005-02-01
ISectionPtr pSection;
//得到表头
_bstr_t section("RH");
pSection = m_Report->Sections->GetItem(section);
::SysFreeString(section);

//得到这个节里的所有的对象
IReportObjectsPtr pRepObjects = pSection->GetReportObjects();
IReportObjectPtr pRepObject = NULL;

for(int i=1;i<=pRepObjects->GetCount();i++)
{
VARIANT var2;
VariantInit(&var2);
var2.vt = VT_I2;
var2.lVal = i;
// pass the value of i to get the i-th section
pRepObject = pRepObjects->GetItem(var2);
pRepObject->QueryInterface(&m_pBaseReportPerson);
}

这个QueryInterface();这个参数是一个QueryInterface(IUnknown* pUnknown)
你可以这样得到你的子报表的接口...
  • 打赏
  • 举报
回复
hxzb7215191 2005-02-01
你在session里找不到这个reportObject吗?
  • 打赏
  • 举报
回复
allen_zhaozhencn 2005-02-01
有个这样的问题,我的报表中主报表和一个子报表,子报表的长度可能跨几张纸.我不知道如何处理,怎么获得:如下效果:

第1张
---------------
- 主报表 -
- -
- 子报表 -
- -
---------------

第2张
---------------
- 子报表 -
- -
- -
- -
---------------

第三张
---------------
- 主报表 -
- -
- 子报表 -
- -
---------------



  • 打赏
  • 举报
回复
llm06 2005-01-31
能不能说的具体点,什么样的子报表?
  • 打赏
  • 举报
回复
allen_zhaozhencn 2005-01-31
有没有人知道阿?我急用.
  • 打赏
  • 举报
回复
allen_zhaozhencn 2005-01-28
  • 打赏
  • 举报
回复
legendhui 2005-01-28
帮你顶一下
  • 打赏
  • 举报
回复
相关推荐
发帖
数据库
加入

3975

社区成员

VC/MFC 数据库
社区管理员
  • 数据库
申请成为版主
帖子事件
创建了帖子
2005-01-28 04:29
社区公告
暂无公告