我的代码是错误的 [英] i am getting error my code is

问题描述

Function bind_rpt() As String
       If Session("frm_dt") = Nothing Or Session("org_code") = Nothing Or Session("to_dt") = Nothing Or Session("org_code") = Nothing Or Session("Sec_name") = Nothing Then
           Return ""
       End If
       Dim ds As DataSet
       Dim str1 As String
       Dim frmdate As String
       Dim todate As String
       Dim orgcode As String
       Dim _UCode As String
       Dim Sec_name As String
       Dim Off_name As String
       Dim Dep_name As String

       orgcode = Session("org_code").ToString().Trim()
       frmdate = oB1.GetDDMMYY(Session("frm_dt").ToString().Trim())
       todate = Session("to_date_con").ToString().Trim()
       _UCode = oED.Decrypt(Session("section_code").ToString().Trim())
       Sec_name = Session("Sec_name").ToString().Trim()
       Off_name = Session("off_name").ToString().Trim()
       Dep_name = Session("dep_name").ToString().Trim()



       Dim reporturl As String
       reporturl = ConfigurationManager.AppSettings("rptString")
       ReportViewer1.ServerReport.ReportServerCredentials = New ReportCredentials("Administrator", "adminrb@123", "localhost")

       'ReportViewer1.ServerReport.ReportServerCredentials = New MyReportServerCredentials(ConfigurationManager.AppSettings("ReportServerUser").ToString(), ConfigurationManager.AppSettings("ReportServerPass").ToString(), ConfigurationManager.AppSettings("ReportServerHost").ToString())

       If reporturl IsNot Nothing Then
           'Dim orgcode As String = Session("org_code").ToString().Trim()
           ReportViewer1.ServerReport.ReportServerUrl = New Uri(reporturl)
           ReportViewer1.ServerReport.ReportPath = "/Reports/rpt_test"
           ReportViewer1.ShowParameterPrompts = False
           ReportViewer1.ShowCredentialPrompts = False
           Dim RptParameters As Microsoft.Reporting.WebForms.ReportParameter() = New Microsoft.Reporting.WebForms.ReportParameter(0) {}
           RptParameters(0) = New Microsoft.Reporting.WebForms.ReportParameter("org_code", orgcode)
           RptParameters(0) = New Microsoft.Reporting.WebForms.ReportParameter("frm_dt", frmdate)
           RptParameters(0) = New Microsoft.Reporting.WebForms.ReportParameter("to_date_con", todate)
           RptParameters(0) = New Microsoft.Reporting.WebForms.ReportParameter("section_code", _UCode)
           RptParameters(0) = New Microsoft.Reporting.WebForms.ReportParameter("Sec_name", Sec_name)
           RptParameters(0) = New Microsoft.Reporting.WebForms.ReportParameter("off_name", Off_name)
           RptParameters(0) = New Microsoft.Reporting.WebForms.ReportParameter("dep_name", Dep_name)
           Me.ReportViewer1.ServerReport.SetParameters(RptParameters)

           ReportViewer1.ServerReport.Refresh()
           ReportViewer1.Visible = True
       End If

i我在这一行收到错误--- ReportViewer1.ServerReport.ReportServerCredentials = New ReportCredentials（Administrator ，adminrb @ 123，localhost）

i am getting error in this line --- ReportViewer1.ServerReport.ReportServerCredentials = New ReportCredentials("Administrator", "adminrb@123", "localhost")

推荐答案

这篇关于我的代码是错误的的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！