blasterboy(流氓兔子)大哥帮忙了!大家也来看看

bluesanke 2003-06-13 03:22:19
Private Sub Command5_Click()
Unload Me
Form1.Show
Dim CRY As CRAXDRT.Report
Dim CRYAT As CRAXDRT.Application
Set CRYAT = New CRAXDRT.Application
Set CRY = CRYAT.OpenReport( "G:\测试\水晶报表\行政管理\cx_xzgl_zhtj_tdzlkffk.rpt")
Form1.CRViewer91.ReportSource = CRY
Form1.CRViewer91.ViewReport
End Sub
要求报表显示查询的结果
你可以加一些条件进行过滤!!
在水晶报表里面可以,也可以在VB中
主要是select expert
大哥我打算在vb程序里加,你能告诉我怎么在上面的代码里加吗!?给点代码例子!
谢谢了很急的说:)
...全文
73 点赞 收藏 7
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
blasterboy 2003-06-13
我的方法就是ReplaceSelectionFormula 再VB里面用我就用的这个,
比如水晶报表里面有字段 A,它是来自DB10
cryrpt.replaceselectionformula( "{DB10.A} > 10" )
这样报表里面显示的就是A大于10的选项了!
回复
bluesanke 2003-06-13
那能不能把代码给我看看!大家研究一下:)我的qq:15475561就这几天我必须要完成,大哥把你笨方法先告诉我
回复
blasterboy 2003-06-13
我做的笨方法就是每次把自己选择的条件,传递个参数过去,给水晶报表,这样自己做出来的是什么,水晶报表就是什么,对于直接把选择出来的记录集给水晶报表,我也想知道,正在摸索中
回复
bluesanke 2003-06-13
那有什么好的方法把查询结果显示在报表中呢?!报表的格式不变!只是每次查询完数据后,报表中的数据直接更新成查询结果!
回复
blasterboy 2003-06-13
我不知道CRYAT。ReplaceSelectionFormula会不会出来,因为我做的项目没有用到CRAXDRT.Report
回复
blasterboy 2003-06-13
cryrpt就是crystal report control控件的名字,赫赫,抱歉,刚才我没有说清楚:(
回复
bluesanke 2003-06-13
cryRpt.ReplaceSelectionFormula (strSelect)
这个cryRpt在上面的代码里怎么定义呢?
回复
相关推荐
发帖
多媒体
创建于2007-09-28

807

社区成员

VB 多媒体
申请成为版主
帖子事件
创建了帖子
2003-06-13 03:22
社区公告
暂无公告