看来这版急需水晶报表高手的指教,支持的顶一下!!!~`

fxj331072 2006-03-11 11:55:01
strsql1 = "select Store.ProId as 产品代号,ProName as 产品名称,ProStyle as 型号,ProUnit as 单位,Quantity as 数量, ProDescribe as 备注 from Store join Product on Product.ProId=Store.ProId where " + Trim(a) + " " & "like +'" + Trim(Text1.Text) + "'+ '%'"


我想上面的SQL打印出来,网上的例子试了也不会`~哎。
求高手指教,分好说,指教对了,我再给他100分。
...全文
131 点赞 收藏 7
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
fxj331072 2006-03-13
请问水晶报表加表格,就项excel一样,指定表格的行数,字段要是超出就下一页
回复
fxj331072 2006-03-13
再顶
回复
fxj331072 2006-03-13
回复
luckystone168 2006-03-11
where语句只在VB生成RS集的时候用,目的生成所需要的记录集,再将此记录集反映到报表,所以在报表设计时,不需要特定记录,只需要需反映的字段列表
至于报表内容会根据每次不同的RS记录集会反映不同的数据报表,你可以试试

欢迎加入我的QQ群:数据库报表联盟17906741
回复
fxj331072 2006-03-11
谢谢楼上的,我按你的方法弄成了,但where 后面的怎么办?
回复
fxj331072 2006-03-11
还是有错误,麻烦会留下个QQ或MSN,我急的不行,谢谢`
酬谢是100分`呵呵`
回复
luckystone168 2006-03-11
一、水晶报表设计
选择数据库专家->创建新连接->OLE DB(ADO)->选择SQL数据库->添加命令(注意一定选此项,不要选择数据库中某一具体的表或视图),出来命令框,将你的SQL语句添加进去(注意不要带WHERE语句),例如:
select Store.ProId as 产品代号,ProName as 产品名称,ProStyle as 型号,ProUnit as 单位,Quantity as 数量, ProDescribe as 备注 from Store join Product on Product.ProId=Store.ProId
接下来,不用我说了吧,就是设计你的报表

二、VB调用
1、在按钮中添加代码
Private Sub CmdPrint_Click()
RptPro.DiscardSavedData
RptPro.Database.SetDataSource RsProAll
RptPro.ReadRecords
FrmProRpt.Show 1
End Sub
'上述RptPro是你调用报表的名称
'RsProAll是利用ADODB建立的RS集

2、在报表浏览窗体中添加
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
CRViewer91.ReportSource = RptPro '其实就是改这里就可以了,把原来的默认的report改成报表文件
CRViewer91.ViewReport
Screen.MousePointer = vbDefault
End Sub

这样就可以根据RS集实现动态报表记录
回复
相关推荐
发帖

1188

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2006-03-11 11:55
社区公告
暂无公告