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

[bluesanke]

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程序里加，你能告诉我怎么在上面的代码里加吗！？给点代码例子！
谢谢了很急的说：）

[bluesanke]

cryRpt.ReplaceSelectionFormula (strSelect)
这个cryRpt在上面的代码里怎么定义呢？

[blasterboy]

cryrpt就是crystal report control控件的名字，赫赫，抱歉，刚才我没有说清楚：（

[blasterboy]

我不知道CRYAT。ReplaceSelectionFormula会不会出来，因为我做的项目没有用到CRAXDRT.Report

[bluesanke]

那有什么好的方法把查询结果显示在报表中呢？！报表的格式不变！只是每次查询完数据后，报表中的数据直接更新成查询结果！

[blasterboy]

我做的笨方法就是每次把自己选择的条件，传递个参数过去，给水晶报表，这样自己做出来的是什么，水晶报表就是什么，对于直接把选择出来的记录集给水晶报表，我也想知道，正在摸索中

[bluesanke]

那能不能把代码给我看看！大家研究一下：）我的qq:15475561就这几天我必须要完成，大哥把你笨方法先告诉我

[blasterboy]

我的方法就是ReplaceSelectionFormula 再VB里面用我就用的这个，
比如水晶报表里面有字段 A,它是来自DB10
cryrpt.replaceselectionformula( "{DB10.A} > 10" )
这样报表里面显示的就是A大于10的选项了！