我试图显示水晶报告的数据，但它不起作用。 [英] I am trying to show data on crystal report but its not working.

问题描述

嗨...

我在数据集中有一个数据集和4个数据表。我正在尝试将数据显示到水晶报告中，但它无法正常工作。我向您展示了我的编码。

Hi...
I mada a dataset and 4 datatable in dataset.I am trying show data into crystal report but it is not working.I show you my coding.

Dim a As New ReportDataset
        Dim DS1 As New DSInvoice
        BindCompanyInfo()
        DS1.Tables("DTCompany").Rows.Add(ds.Tables(0).Rows(0)("CName"), ds.Tables(0).Rows(0)("Add1"), ds.Tables(0).Rows(0)("State"), ds.Tables(0).Rows(0)("City"), ds.Tables(0).Rows(0)("PhoneNo"), ds.Tables(0).Rows(0)("MobileNo"), ds.Tables(0).Rows(0)("EmailId"), ds.Tables(0).Rows(0)("ContPerson"), ds.Tables(0).Rows(0)("FaxNo"), ds.Tables(0).Rows(0)("TinNo"), ds.Tables(0).Rows(0)("LstNo"), ds.Tables(0).Rows(0)("CstNo"), ds.Tables(0).Rows(0)("PanNo"), ds.Tables(0).Rows(0)("CompHOffice"), ds.Tables(0).Rows(0)("ExpiryDate1"), ds.Tables(0).Rows(0)("ExpiryDate2"), ds.Tables(0).Rows(0)("FinYear1"), ds.Tables(0).Rows(0)("FinYear2"))
        DS1.Tables("DTInvMst").Rows.Add(cmbType.Text, cmbInVNo.Text, txtPortOfLoading.Text, txtPortDischarge.Text, dtpBuyerDate.Text, txtOtherRef.Text, txtBuyerOrderNo.Text, txtPreCarriage.Text, dtpRemovalGoods.Text, txtSNo.Text, txtVessel.Text, txtFinalDest.Text, txtExporterRef.Text, txtRateDuty.Text, txtTotalDutyFig.Text, txtWords.Text, txtExamption.Text, dtpDateDebit.Text, dtpInvoice.Text, dtpRoadPermit.Text, txtPLA.Text, txtRGSno.Text, txtRoadPermitNo.Text, dtpRemovalGoods.Text, txtPlaceOfReceipt.Text, txtCountGoods.Text, txtCountDest.Text, txtTermsPaymt.Text, txtexcisevalue.Text, txtExcise1.Text, txtCESSValue.Text, txtTotalCess1.Text, txtEduValue.Text, txtEduCess1.Text, txtAllExcise1.Text, txtSaleTaxValue.Text, txtSaletax1.Text, txtTaxAmt1.Text, txtTotalsale1.Text)
        DS1.Tables("DTCustomer").Rows.Add(txtCustName.Text, txtCustAdd.Text, dtpCust.Text, txtTarrifHeadNo.Text, txtDocument.Text, txtPhoneNo.Text, txtMb.Text, txtTransporter.Text, txtVehicleNo.Text, txtCustInvNo.Text, txtTinNo.Text, txtECC.Text, txtPO.Text, txtGRNo.Text, txtInvoiceNo.Text)
        DS1.Tables("DTInvDetail").Rows.Add(cmbOrderAckNo.Text, txtOrderAckDate.Text, txtPartyName.Text, dgvInvoice.Rows(0).Cells("colDescription").Value, dgvInvoice.Rows(0).Cells("colQty").Value, dgvInvoice.Rows(0).Cells("colRate").Value, dgvInvoice.Rows(0).Cells("colTotal").Value, dgvInvoice.Rows(0).Cells("colkindpackage").Value, dgvInvoice.Rows(0).Cells("colPackageSize").Value, dgvInvoice.Rows(0).Cells("colNetWeight").Value, dgvInvoice.Rows(0).Cells("colGrossWeight").Value, dgvInvoice.Rows(0).Cells("colBatch").Value)
        Path1 = AppDomain.CurrentDomain.BaseDirectory.ToString & "RptInvoice.rpt"
        a.PrintRPT(DS1, Path1, heading)
        a.Show()

推荐答案

这篇关于我试图显示水晶报告的数据，但它不起作用。的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！