BC30451: имя 'blnexportdata' не объявлено.
У меня есть проект VS 2015 ASPX VB, и все это одновременно и работяга, и Дори, когда я работаю в режиме разработки
Когда я удаляю файлы ASPX и ASPX.VB, no bin folder for prod, на мой рабочий сервер, я получаю следующую ошибку.
BC30451: имя 'blnExportData' не объявлено.
Может ли кто-нибудь помочь новичку?
Код выглядит следующим образом
========================
Умолчанию.aspx-файл.ВБ
=======================
Partial Public Class _Default Inherits System.Web.UI.Page Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) Return End Sub Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Me.cmdExport.Visible = False End Sub Sub cmdSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Me.BindGrid() Me.cmdExport.Visible = True End Sub Public Sub BindGrid() Dim strConnString As String = ConfigurationManager.ConnectionStrings("myConnectionString").ConnectionString Dim myConnection As New SqlConnection(strConnString) Dim myCommand As New SqlCommand() Dim WriteItem As System.IO.StringWriter = New System.IO.StringWriter() Dim htmlText As System.Web.UI.HtmlTextWriter = New HtmlTextWriter(WriteItem) myCommand.CommandType = CommandType.StoredProcedure myCommand.CommandText = "sp_OrderHistory" myCommand.Parameters.Add("@Company", SqlDbType.VarChar).Value = Me.lstCompany.Text myCommand.Parameters.Add("@StartDate", SqlDbType.VarChar).Value = Me.txtStartDate.Text myCommand.Parameters.Add("@EndDate", SqlDbType.VarChar).Value = Me.txtEndDate.Text myCommand.Parameters.Add("@Product", SqlDbType.VarChar).Value = Me.txtProduct.Text myCommand.Connection = myConnection myConnection.Open() myGridControl.EmptyDataText = "No Records Found" myGridControl.DataSource = myCommand.ExecuteReader() If blnExportData = True Then Response.Clear() Response.AddHeader("content-disposition", "attachment; filename=ExportResults.xls") Response.ContentType = "application/vnd.xls" myGridControl.AllowPaging = False End If myGridControl.DataBind() If blnExportData = True Then myGridControl.RenderControl(htmlText) Response.Write(WriteItem.ToString()) Me.cmdExport.Visible = False blnExportData = False Response.End() End If myConnection.Close() myConnection.Dispose() End Sub Sub cmdExport_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdExport.Click blnExportData = True Me.BindGrid() End Sub End Class
=============================
Глобальные.эйсакс.ВБ
=============================
Imports System.Web.SessionState Public Module DefineGlobals Public blnExportData As Boolean = False End Module Public Class GlobalStuff Inherits System.Web.HttpApplication End Class
Что я уже пробовал:
Он отлично работает с использованием iisexpress и vs 2015. Не в prod, используя IIS и не имея папки bin.
Bryian Tan
Почему бы вам не включить папку bin?
yanks_win
Это предпочтения клиентов. Папка bin сделала бы это проще, я согласен.