i have added a seperate id for each and then its working fine but then the prob. is if there r 4 rows in the Credit table which is linked to the Debit table and the debit table is having 2 rows then only 2 rows from credit table too r displayed. hence i am adding blank rows to the debit table to get the total rows same in both dr. and cr. table.
Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
dTableDr = New DataTable("dTableDebit")
dTableCr = New DataTable("dTableCredit")
dTableDr.Columns.Add(New DataColumn("Id", GetType(Integer)))
dTableDr.Columns.Add(New DataColumn("Particulars", GetType(String)))
dTableDr.Columns.Add(New DataColumn("Amount", GetType(Integer)))
dTableCr.Columns.Add(New DataColumn("Id", GetType(Integer)))
dTableCr.Columns.Add(New DataColumn("Particulars", GetType(String)))
dTableCr.Columns.Add(New DataColumn("Amount", GetType(Integer)))
Dim iRowCount As Integer = dDebitTable.Rows.Count - 1
Dim i As Integer = 0
For i = 0 To iRowCount
Dim iRow As DataRow = dDebitTable.Rows(i)
Dim drNewRow As DataRow
drNewRow = dTableDr.NewRow
drNewRow.Item("Id") = 1
drNewRow.Item("Particulars") = iRow!Name
drNewRow.Item("Amount") = iRow!Amount
dTableDr.Rows.Add(drNewRow)
Next
iRowCount = dCreditTable.Rows.Count - 1
For i = 0 To iRowCount
Dim iRow As DataRow = dCreditTable.Rows(i)
Dim drNewRow As DataRow
drNewRow = dTableCr.NewRow
drNewRow.Item("Id") = 1
drNewRow.Item("Particulars") = iRow!Name
drNewRow.Item("Amount") = iRow!Amount
dTableCr.Rows.Add(drNewRow)
Next
Dim crForm As New FrmReportViewer
Dim mRpt As New rptTest
Dim mHead As String = "Income & Expense Statement A/c For The Period Ended :- " & XUptoDt.Date
Dim newDs As New DataSet("ds_FinalAccountDataSet")
newDs.Clear()
newDs.Tables.Add(dTableDr)
newDs.Tables.Add(dTableCr)
mRpt.SetDataSource(newDs)
mRpt.SetParameterValue("CoName", X_CoName)
mRpt.SetParameterValue("ReportHeading", mHead)
Dim CRViewer As New CrystalDecisions.Windows.Forms.CrystalReportViewer
crForm.CrystalReportViewer2.ReportSource = mRpt
crForm.Show()
End Sub
hope u dont have a laugh after seeing the code as i am very new to vb & crystal and hence have done it this way.
pls. guide.
IP Logged
