Crystal Report on-the-fly

I recently came across a project (VB/access) which uses one blank Crystal report file(dsr) and creates all the reports on the fly based on that report. Even the connection is used thru connection string. This I've figured out how to do from other reports on that project. But I cannot figure out how to link a subreport to each record of the main report. say, you have a list of names and related phone numbers. the phone numbers list is the subreport which is to link to each name. I just want a working copy of this. ggosh **see attatchment for sample** if there's expenses attatched with each bed, linked to the main report by bed no., how do you define the link? ## Deliverables Rent A Coder requirements notice: As originally posted, this bid request does not have complete details. Should a dispute arise and this project go into arbitration "as is", the contract's vagueness might cause it to be interpreted against you, even though you were acting in good-faith. So for your protection, if you are interested in this project, please work-out and document the requirements onsite. 1) Complete and fully-functional working program(s) in executable form as well as complete source code of all work done. 2) Deliverables must be in ready-to-run condition, as follows (depending on the nature of the deliverables): a) For web sites or other server-side deliverables intended to only ever exist in one place in the Buyer's environment--Deliverables must be installed by the Seller in ready-to-run condition in the Buyer's environment. b) For all others including desktop software or software the buyer intends to distribute: A software installation package that will install the software in ready-to-run condition on the platform(s) specified in this bid request. 3) All deliverables will be considered "work made for hire" under U.S. Copyright law. Buyer will receive exclusive and complete copyrights to all work purchased. (No GPL, GNU, 3rd party components, etc. unless all copyright ramifications are explained AND AGREED TO by the buyer on the site per the coder's Seller Legal Agreement). * * *This broadcast message was sent to all bidders on Monday May 23, 2005 2:56:39 PM: Some more info: Crystal Report Version 8.0 the project uses Crytal Report Viewer Control([login to view URL]) and runtime dll([login to view URL]) sample report:- to give you an idea what the thing looks like. the functions used are just to make the coding a little clean-modularised the details of the multiple lines used to do a job. Public Sub preBedList(Optional rflt As String) Dim mr As New CRFlatRep Dim rsql As String Dim t As Integer Dim rw As Integer rpdesc = "Bed List" rsql = "select b.bed_no,[login to view URL],rtrim([login to view URL]) as name,[login to view URL] from bedmast b,bedcat c where b.btype=[login to view URL] order by [login to view URL]" Set mr = SetRepDB(mr, NHCCon, rsql, rflt) [login to view URL] 0, [login to view URL](1).Fields(4), crGCAnyValue, crDescendingOrder [login to view URL] 1, [login to view URL](1).Fields(3), crGCAnyValue, crAscendingOrder [login to view URL] rSize = crPaperFanfoldStdGerman rw = 12000 ' 8.5" of 8.5x12 excluding margins 'Report Header [login to view URL] = True t = SetRPgHdr(mr, rpdesc, rw, , True) Set txT = AddRepTxt([login to view URL], "Category", 1800, t + 50, 12, 3000) Set txT = AddRepTxt([login to view URL], "Bed No.", 4800, t + 50, 12, 1500) Set txT = AddRepTxt([login to view URL], "Rate", 6300, t + 50, 12, 1500, , crRightAlign) t = t + [login to view URL] + 50 [login to view URL] = t + 50 Set ln = [login to view URL](0, t, rw, t) Set flD = AddRepFld([login to view URL](4).Sections(1), "{[login to view URL]}", 1800, 50, 15, 4000, 400) [login to view URL] = True [login to view URL](4).Sections(1).Height = 450 t = 0 'Set flD = AddRepFld([login to view URL], "{[login to view URL]}", 1800, 50, 12) '[login to view URL] = True Set flD = AddRepFld([login to view URL], "{ado.bed_no}", 4800, t + 50, 12) Set flD = AddRepFld([login to view URL], "{ado.r ate}", 6300, t + 50, 12, 1500, , 2) [login to view URL] = [login to view URL] + 170 SetRepFtr mr, True, rw SetRPgFtr mr, , rw ShowReport mr, True End Sub ggosh * * *This broadcast message was sent to all bidders on Tuesday May 24, 2005 11:39:14 AM: check up the specs again. ## Platform VB6, CR 8.0, MS Access 2000