在线急等水晶报表！！！

Question

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(App.Path + "G:\测试\水晶报表\行政管理\cx_xzgl_zhtj_tdzlkffk.rpt")
  Form1.CRViewer91.ReportSource = CRY
  Form1.CRViewer91.ViewReport
End Sub
大家看看Set CRY = CRYAT.OpenReport(App.Path + "G:\测试\水晶报表\行政管理\cx_xzgl_zhtj_tdzlkffk.rpt")这句该怎么改呀，为什么老说路径错误呢？

Answer 1

Set CRY = CRYAT.OpenReport(App.Path + "G:\测试\水晶报表\行政管理\cx_xzgl_zhtj_tdzlkffk.rpt")Set CRY = CRYAT.OpenReport( "G:\测试\水晶报表\行政管理\cx_xzgl_zhtj_tdzlkffk.rpt")这样就可以了！！

Answer 2

你可以加一些条件进行过滤！！
在水晶报表里面可以，也可以在VB中
主要是select expert

Answer 3

cryRpt.ReplaceSelectionFormula (strSelect)strSelect 就是你要的条件，比如A>b什么的，赫赫，不过你问的问题确实比较难：）
分不分无所谓了，叫个朋友好了：）