Create New Row after filling a row of TEXT OBJECT

[lenniekuah]

Hi there,

Using VBNET2008, Crystal Report 9, SQL SERVER 2000, Northwind database for application purposes.

The CrystalReportInvoice.RPT was embedded onto VBNET2008 FORM via CrystalReportViewer1 whose datasource was not connected to table or dataset.

As requested by Team Leader, 3 Crystal Report TEXT OBJECT were inserted in the Crystal Report SECTION DETAILS which are filled with data using DATA READER which consist of 7 rows of data but only one row was display because the DATAREADER Row override the row before it becaues no NEW LINE was created .

Here are the coding

 Private Sub btnShowReport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowReport.Click
 
        Dim strSql As String = Nothing
 
        strSql &= "Select  OrderID,  OrderDate, ProductName" 
        strSql &= " From Invoices "
        strSql &= " Where CustomerId = '" & txtcustId.text & "' "
 
        sqlConn = New SqlConnection(connStr)
        sqlCmd = New SqlCommand(strSql, sqlConn)
        sqlConn.Open()
        sqlDR = sqlCmd.ExecuteReader
 
        ' ---- setup crystal Report option and TEXT Pbject defination ---- '
        Dim objRpt As New CrystalOrderInvoice
        Dim cryTextObject As TextObject = Nothing
         Dim FmulaNewLine As FormulaFieldDefinition = Nothing
 
        Dim cryFolder As String = "H:\VBNet2008CrystalReportApps\CrystalOrderInvoice.rpt"
 
        objRpt.Load(cryFolder)
        Me.CrystalReportViewer1.ReportSource = objRpt
        Me.CrystalReportViewer1.Visible = True
 
        While sqlDR.Read
 
            ' --- OrderID
            cryTextObject = objRpt.ReportDefinition.ReportObjects("ctxtOrderId")
            cryTextObject.Text = sqlDR("OrderID")
 
            ' --- OrderDate
            cryTextObject = objRpt.ReportDefinition.ReportObjects("cTxtOrderDate")
            cryTextObject.Text = sqlDR("OrderDate")
 
            ' --- productname
            cryTextObject = objRpt.ReportDefinition.ReportObjects("cTxtProduct")
            cryTextObject.Text = sqlDR("ProductName") 
 
          ' --- new line  
              FmulaNewLine = objRpt.DataDefinition.FormulaFields("FmulaNewLine")
            FmulaNewLine.Text = Chr(10) & Chr(13)   
 
     End While
 
       sqlconn.Close
 
    End Sub
 
 
 
 Private Sub btnShowReport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowReport.Click
 
        Dim strSql As String = Nothing
 
        strSql &= "Select  OrderID,  OrderDate, ProductName" 
        strSql &= " From Invoices "
        strSql &= " Where CustomerId = '" & txtcustId.text & "' "
 
        sqlConn = New SqlConnection(connStr)
        sqlCmd = New SqlCommand(strSql, sqlConn)
        sqlConn.Open()
        sqlDR = sqlCmd.ExecuteReader
 
        ' ---- setup crystal Report option and TEXT Pbject defination ---- '
        Dim objRpt As New CrystalOrderInvoice
        Dim cryTextObject As TextObject = Nothing
        Dim FmulaNewLine As FormulaFieldDefinition = Nothing
 
        Dim cryFolder As String = "H:\VBNet2008CrystalReportApps\CrystalOrderInvoice.rpt"
 
        objRpt.Load(cryFolder)
        Me.CrystalReportViewer1.ReportSource = objRpt
        Me.CrystalReportViewer1.Visible = True
 
        While sqlDR.Read
 
            ' --- OrderID
            cryTextObject = objRpt.ReportDefinition.ReportObjects("ctxtOrderId")
            cryTextObject.Text = sqlDR("OrderID")
 
            ' --- OrderDate
            cryTextObject = objRpt.ReportDefinition.ReportObjects("cTxtOrderDate")
            cryTextObject.Text = sqlDR("OrderDate")
 
            ' --- productname
            cryTextObject = objRpt.ReportDefinition.ReportObjects("cTxtProduct")
            cryTextObject.Text = sqlDR("ProductName") 
 
            ' --- new line  
            FmulaNewLine = objRpt.DataDefinition.FormulaFields("FmulaNewLine")
            FmulaNewLine.Text = Chr(10) & Chr(13)
 
        End While
 
       sqlconn.Close
 
    End Sub
 

[MrMancunian]

For as far as I can see, you refill the same objects over and over again in your loop.You should create the new objects within your While...End While-loop.

Try

cryTextObject = New objRpt.ReportDefinition.ReportObjects("ctxtOrderId ")
etc...

Steven

[lenniekuah]

Hi Awesome MrMancunian
Thank you again for your information. I will try it out. Once I got it working I will post the coding here to share with Newbies who have the same approach.

You are very awesome.

Cheers,
Lennie

[lenniekuah]

Hi MrMancunian

I amended the codes by adding the word NEW
cryTextObject = New objRpt.ReportDefinition.ReportObjects("ctxtOrderId ")
cryTextObject = New objRpt.ReportDefinition.ReportObjects("cTxtOrderDa te")
cryTextObject = New objRpt.ReportDefinition.ReportObjects("cTxtProduct e")

It generated this error message to my surprise.

Type 'objRpt.ReportDefinition.ReportObjects' is not defined.

[MrMancunian]

Can you put up your complete solution for download? Then I can try it at my own PC :-)

Steven

[lenniekuah]

Hi MrMancunian,
I have extracted all the coding and pasted on WORD Document. How to download it so that you have try it ? Do you mean paste the coding here as I have initially done it when I asked for help ?

I don't see any Attachment Button opton here.


Cheers,
Lennie

[MrMancunian]

Hi Lennie,

Just ZIP your complete solution and put it up for download at rapidshare or something alike :-) Then send me the URL...

Steven

[lenniekuah]

Hi MrMancunian,
I have no idea of any Internet Server where I can download my zip files

[MrMancunian]

Take a look at http://www.rapidshare.com/...

Steven

[lenniekuah]

Hi MrManCunian,

Thank you very much for your offer to help me. You are very awesome person.
I have download it as VbNet2008Crystal.zip in the http://www.rapidshare.com/...

Here is the URL Link:

http://rs102tl.rapidshare.com/cgi-bi...04693242865787

Prior to download, I was testing almost similar application developed by another progammer and I encounter this error message from Crystal Report Viewer:- AxCrystalActiveXReportViewer1


With Me.AxCrystalActiveXReportViewer1
.ReportSource = cryRpt <--- generate error "This value is Write-only "
.Refresh()
End With

Thank you for your help.

Have a Good Day,

Cheers,
Lennie

[lenniekuah]

Hi MrManCunian,
Lennie here,
How's my downloaded ZIP application regarding Crystal Report TEXT OBJECT ?
Can you please get back to me with information ?

Thanks

[MrMancunian]

Hi Lennie,

I've been away for a few days, so I wasn't able to respond. I will download your solution right away and get back to you soon :-)

Steven

[MrMancunian]

Lennie,

The link you posted is dead...Click it yourself and you'll see. Perhaps you posted the wrong link?

Steven

[lenniekuah]

Hi MrMancunian,

Good to meet you again. It's wonderful that you have a break.
I have uploaded the ZIP file again and the URL LINK is listed beow


1. Download Link: Click here to download file

http://rapidshare.com/files/37022395...ystal.zip.html
MD5: F8FDE4F259734A4682E18729D263BD11

[MrMancunian]

Ok, can you hook me up with the following libs?

- AxCRVIEWER9Lib
- CRVIEWER9Lib

Steven

[lenniekuah]

Here is the URL Link

1. Download Link: Click here to download file

http://rapidshare.com/files/37025391...alDLL.zip.html
MD5: CD6D0D9516E15F64F013209FB6DB7D40

[MrMancunian]

Hi Lennie,

I spent almost an entire day on getting your solution even to run, but without any result. I give up, perhaps someone else?

Sorry.

Steven

[lenniekuah]

Hi MrMancunian,

Thank you very much for spending your precious time trying to solve my coding problems. Please do not feel bad about it without the solution. I really appreciate your effort trying to help me. You are a very awesome person.

Once I got the coding working and running, I will share it with you and other Newbies by posting it here.

Here is the explanation why using Crystal Report TEXTOBJECT. Instead of creating alot of Crystal Reports for transactions reporting, it's better to use TEXTOBJECTs ( Eg. txtData1, txtData2, txtData3, txtData4, txtData5, etc...)

With these txtData as TEXTOBJECT name it creates the Crystal Report very flexible. The various Progams that extraction different transactions from SQL SERVER use DATAREADER and fill the rows of records into txtDATA object.

That will save the company development time and cost.

I am hoping that some VB.NET Crystal Report Developer will share their knowledge of how to create a new row after fill the txtDATA object instead of override the txtDATA objects like its happening right now. Instead of displaying 7 rows of data it display only the last row as it overrides the row before it.

Have a Good Day, MrMancunian.

[MrMancunian]

Hi Lennie,

Perhaps you can find something at the Crystal Reports forum: http://www.crystalreportsbook.com/Forum/.

Steven

[lenniekuah]

Hi MrMancunian,

I did submit the problem to the URL link and until today I have not received any response from them. I am not sure they did not responsed to it.
Nevetheless, I will logged on to the URL Link to check it out.

Thank you very much for the URL Link.