'Must refer to ADO and Crystal Report9 ActiveX Designer Design Time Library (Internal)' Using Controls Crystal Report Viewer Contral
DIM STRSQL AS STRING
DIM CAPP AS NEW CRAXDRT.Application Dim CARP AS NEWDRT.REPORT DIM CN AS NEW ADODB.CONNECTION DIM RS AS NEW AdoDB.Recordset 'Report Path SET Carp = Capp.OpenReport (app.path & "/rpttest.rpt" ) If cn.State = adStateOpen Then cn.Close With cn .Provider = "sqloledb" If opt1.Value = True Then .ConnectionString = "data source = mrp-server; initial catalog = voutmmstdata; user id = sa; password = 12345 "Else .connectionstring =" data source = mrp-03; initial catalog = test; user ID = sa; password = "end if .Open end with" report design when designing the filtering conditions, that is, no designation WHERE statement
If opt1.Value = True Then strsql = "select * from mmst011 left join mmst012 on mmst011.order_no = mmst012.order_no where mmst011.order_no in ( '00000733', '00000737')" Else strsql = "select * from mmst011 left join MMST012 on mmst011.order_no = mmst012.order_no where mmst011.order_no in ('00000730', '00000731') "endiff
IF rs1 = adstateopen dam = cn .cursorLocation = aduseclient .open strsql, cn, adopndynamic, AdlockOptimistic end with
