yanks_win Ответов: 0

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 сделала бы это проще, я согласен.

0 Ответов