<asp:Button ID="Button225" runat="server" Text="fghgfhfg"  OnClick1="Button225"/>

Protected Sub Button225_OnClick1(sender As Object, e As EventArgs)
        GridView7.PagerSettings.Visible = False
        GridView7.DataBind()
        Dim sw As New StringWriter()
        Dim hw As New HtmlTextWriter(sw)
        GridView7.RenderControl(hw)
        Dim gridHTML As String = sw.ToString().Replace("""", "'") _
           .Replace(System.Environment.NewLine, "")
        Dim sb As New StringBuilder()
        sb.Append("<script type = 'text/javascript'>")
        sb.Append("window.onload = new function(){")
        sb.Append("var printWin = window.open('', '', 'left=0")
        sb.Append(",top=0,width=1000,height=600,status=0');")
        sb.Append("printWin.document.write(""")
        sb.Append(gridHTML)
        sb.Append(""");")
        sb.Append("printWin.document.close();")
        sb.Append("printWin.focus();")
        sb.Append("printWin.print();")
        sb.Append("printWin.close();};")
        sb.Append("</script>")
        ClientScript.RegisterStartupScript(Me.GetType(), "GridPrint", sb.ToString())
        GridView7.PagerSettings.Visible = True
        GridView7.DataBind()
    End Sub

<asp:Button ID="Button225" runat="server" Text="fghgfhfg"  OnClick1="Button225_OnClick1"/>

Protected Sub Button225_OnClick(sender As Object, e As EventArgs)
        GridView7.PagerSettings.Visible = False
        GridView7.DataBind()
        Dim sw As New StringWriter()
        Dim hw As New HtmlTextWriter(sw)
        GridView7.RenderControl(hw)
        Dim gridHTML As String = sw.ToString().Replace("""", "'") _
           .Replace(System.Environment.NewLine, "")
        Dim sb As New StringBuilder()
        sb.Append("<script type = 'text/javascript'>")
        sb.Append("window.onload = new function(){")
        sb.Append("var printWin = window.open('', '', 'left=0")
        sb.Append(",top=0,width=1000,height=600,status=0');")
        sb.Append("printWin.document.write(""")
        sb.Append(gridHTML)
        sb.Append(""");")
        sb.Append("printWin.document.close();")
        sb.Append("printWin.focus();")
        sb.Append("printWin.print();")
        sb.Append("printWin.close();};")
        sb.Append("</script>")
        ClientScript.RegisterStartupScript(Me.GetType(), "GridPrint", sb.ToString())
        GridView7.PagerSettings.Visible = True
        GridView7.DataBind()
    End Sub

Ошибка компиляции

Описание: Ошибка во время компиляции ресурса, необходимого для обслуживания этого запроса. Просмотрите следующие сведения о данной ошибке и измените соответственно исходный код. 

Сообщение об ошибке компилятора: BC30456: "Button225_OnClick" не является членом "ASP.zac_aspx".
Ошибка источника:

Строка 29:                 <asp:Button ID="Button225" runat="server" Text="fghgfhfg"  OnClick="Button225_OnClick"/>

Protected Sub Button225_OnClick(sender As Object, e As EventArgs)

<asp:Button ID="Button225" runat="server" Text="fghgfhfg"  OnClick1="Button225_OnClick"/>

<asp:Content ID="Content2" runat="server" contentplaceholderid="ContentPlaceHolder1">
    <h1 style="text-align: center; width: 1195px;" class="auto-style105"><span class="auto-style31">Каждая заявка для нас важна!&nbsp;</span>&nbsp;</h1>
    <table class="auto-style177" VALIGN ="top" >
        <tr>
            <td class="auto-style180" VALIGN ="top">
    <asp:DropDownList ID="DropDownList5" runat="server" AutoPostBack="True" CssClass="auto-style1" DataSourceID="SqlDataSource3" DataTextField="Состояние" DataValueField="IDCoct" Height="45px" Width="200px">
    </asp:DropDownList>
                <asp:Button ID="Button223" runat="server" CssClass="auto-style1" Text="Сброс" Height="33px" Width="94px" />
                <asp:Button ID="Button225" runat="server" Text="fghgfhfg"  OnClick="Button225_OnClick"/>
                <asp:Button ID="ExportGrid" runat="server" Text="Button" />
            </td>
            <td class="auto-style181" VALIGN ="top">
    <asp:DropDownList ID="DropDownList6" runat="server" AutoPostBack="True" CssClass="auto-style1" DataSourceID="SqlDataSource4" DataTextField="Состояние" DataValueField="IDCoct" Width="169px" Height="45px">
    </asp:DropDownList>
                &nbsp;<asp:Button ID="Button8" runat="server" CssClass="auto-style1" ForeColor="#990000" Height="42px" style="font-weight: 700" Text="Изменить" Width="126px" />
                

            </td>
        </tr>
        <tr>
            <td class="auto-style180" VALIGN ="top">
    <asp:GridView ID="GridView7" runat="server" AllowPaging="True" AllowSorting="True" AutoGenerateColumns="False" DataSourceID="SqlDataSource6" Height="19px" Width="341px" CssClass="auto-style1" DataKeyNames="IDZac">
        <Columns>
            
            <asp:CommandField ShowSelectButton="True" />
            
            <asp:BoundField DataField="IDZac" HeaderText="IDZac" InsertVisible="False" SortExpression="IDZac" Visible="False" />
            <asp:BoundField DataField="Дата" HeaderText="Дата" SortExpression="Дата" DataFormatString="{0:d}" />
            <asp:BoundField DataField="Время" HeaderText="Время" SortExpression="Время" DataFormatString="{0:hh:mm}" />
            <asp:BoundField DataField="ФИО" HeaderText="ФИО" SortExpression="ФИО" />
            <asp:BoundField DataField="Количество гостей" HeaderText="Количество гостей" SortExpression="Количество гостей" />
            <asp:BoundField DataField="Телефон" HeaderText="Телефон" SortExpression="Телефон" Visible="False" />
            <asp:BoundField DataField="Пожелания" HeaderText="Пожелания" SortExpression="Пожелания" Visible="False" />
            <asp:BoundField DataField="IDCoct" HeaderText="IDCoct" SortExpression="IDCoct" Visible="False" />
            <asp:BoundField DataField="Состояние" HeaderText="Состояние" SortExpression="Состояние" />
        </Columns>
    </asp:GridView>
                <asp:SqlDataSource ID="SqlDataSource6" runat="server" ConnectionString="<%$ ConnectionStrings:WebConnectionString7 %>" ProviderName="<%$ ConnectionStrings:WebConnectionString7.ProviderName %>" SelectCommand="SELECT * FROM [Q_Sale] WHERE ([IDCoct] = ?)">
                    <SelectParameters>
                        <asp:SessionParameter DefaultValue="1" Name="IDCoct" SessionField="IDCoct" Type="Int32" />
                    </SelectParameters>
                </asp:SqlDataSource>
            </td>
            <td class="auto-style181" VALIGN ="top">
    <asp:DetailsView ID="DetailsView2" runat="server" AllowPaging="True" AutoGenerateRows="False" DataSourceID="SqlDataSource2" Height="76px" Width="161px" CssClass="auto-style1" style="margin-left: 19px">
        <Fields>
            <asp:BoundField DataField="IDZac" HeaderText="IDZac" InsertVisible="False" SortExpression="IDZac" Visible="False" />
            <asp:BoundField DataField="Дата" HeaderText="Дата" SortExpression="Дата" Visible="False" />
            <asp:BoundField DataField="Время" HeaderText="Время" SortExpression="Время" Visible="False" />
            <asp:BoundField DataField="ФИО" HeaderText="ФИО" SortExpression="ФИО" />
            <asp:BoundField DataField="Количество гостей" HeaderText="Количество гостей" SortExpression="Количество гостей" Visible="False" />
            <asp:BoundField DataField="Телефон" HeaderText="Телефон" SortExpression="Телефон" />
            <asp:BoundField DataField="Пожелания" HeaderText="Пожелания" SortExpression="Пожелания" />
            <asp:BoundField DataField="IDCoct" HeaderText="IDCoct" SortExpression="IDCoct" Visible="False" />
            <asp:BoundField DataField="Состояние" HeaderText="Состояние" SortExpression="Состояние" Visible="False" />
        </Fields>
    </asp:DetailsView>
            &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
            </td>
        </tr>
        <tr>
            <td class="auto-style180" VALIGN ="top">
                &nbsp;</td>
            <td class="auto-style181" VALIGN ="top">
    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
            </td>
        </tr>
    </table>
<p class="auto-style1" style="text-align: center; width: 936px;">
    <asp:SqlDataSource ID="SqlDataSource3" runat="server" ConnectionString="<%$ ConnectionStrings:WebConnectionString7 %>" ProviderName="<%$ ConnectionStrings:WebConnectionString7.ProviderName %>" SelectCommand="SELECT * FROM [Coct]"></asp:SqlDataSource>
    <asp:SqlDataSource ID="SqlDataSource5" runat="server" ConnectionString="<%$ ConnectionStrings:WebConnectionString7 %>" ProviderName="<%$ ConnectionStrings:WebConnectionString7.ProviderName %>" SelectCommand="SELECT * FROM [Fill]"></asp:SqlDataSource>
    <asp:Label ID="Label39" runat="server" Text="Label" Visible="False" CssClass="auto-style105"></asp:Label>
    

    

    <asp:SqlDataSource ID="SqlDataSource2" runat="server" ConnectionString="<%$ ConnectionStrings:WebConnectionString7 %>" ProviderName="<%$ ConnectionStrings:WebConnectionString7.ProviderName %>" SelectCommand="SELECT * FROM [Q_Sale] WHERE ([IDZac] = ?)">
        <SelectParameters>
            <asp:SessionParameter DefaultValue="0" Name="IDZac" SessionField="IDZac" Type="Int32" />
        </SelectParameters>
    </asp:SqlDataSource>
    <asp:SqlDataSource ID="SqlDataSource4" runat="server" ConnectionString="<%$ ConnectionStrings:WebConnectionString7 %>" ProviderName="<%$ ConnectionStrings:WebConnectionString7.ProviderName %>" SelectCommand="SELECT * FROM [Coct]"></asp:SqlDataSource>
    

</p>
</asp:Content>

Imports System.Data.OleDb
Imports System.IO
Partial Class Zac
    Inherits System.Web.UI.Page

    Protected Sub DropDownList5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DropDownList5.SelectedIndexChanged
        Session.Add("IDCoct", Me.DropDownList5.SelectedValue)
    End Sub
    Protected Sub GridView7_SelectedIndexChanged(sender As Object, e As EventArgs) Handles GridView7.SelectedIndexChanged
        Session.Add("IDZac", Me.GridView7.SelectedValue)
    End Sub
    'Кнопка изменения состояния
    'Запрос на обновление 
    'Update Sale Set IdStation=2 Where IDDogov=10;
    Protected Sub Button8_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button8.Click
        Dim СтрокаПодкл As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Web.mdb")
        ' Создание экземпляра объекта Connection:
        Dim CONNECTION = New OleDbConnection(СтрокаПодкл)
        Try
            CONNECTION.Open()
        Catch ex As Exception
            Me.Label39.Text = ex.Message
        End Try

        Dim SQL_запрос As String, IDZac As Long
        IDZac = Session("IDZac")
        Dim COMMAND As New OleDbCommand
        'Запрос на обновление
        SQL_запрос = "Update Zacazi Set IdCoct=" & Me.DropDownList6.SelectedValue & " Where IDZac=" & IDZac
        Try
            ' Создание объекта Command с заданием SQL-запроса: datetime
            COMMAND.CommandText = SQL_запрос
            ' Для добавления записи в БД эта команда обязательна:
            COMMAND.Connection = CONNECTION
            COMMAND.ExecuteNonQuery()
            Me.Label39.Text = "Изменения внесмены"
        Catch ex As Exception
            Me.Label39.Text = ex.Message
        End Try
        CONNECTION.Close()
        Response.Redirect("Zac.aspx")
    End Sub

    Protected Sub Button223_Click(sender As Object, e As EventArgs) Handles Button223.Click
        Try
            SqlDataSource6.SelectCommand = "SELECT * FROM Q_Sale"
            GridView7.DataBind()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    
    Protected Sub Button225_OnClick(sender As Object, e As EventArgs)
        GridView7.PagerSettings.Visible = False
        GridView7.DataBind()
        Dim sw As New StringWriter()
        Dim hw As New HtmlTextWriter(sw)
        GridView7.RenderControl(hw)
        Dim gridHTML As String = sw.ToString().Replace("""", "'") _
           .Replace(System.Environment.NewLine, "")
        Dim sb As New StringBuilder()
        sb.Append("<script type = 'text/javascript'>")
        sb.Append("window.onload = new function(){")
        sb.Append("var printWin = window.open('', '', 'left=0")
        sb.Append(",top=0,width=1000,height=600,status=0');")
        sb.Append("printWin.document.write(""")
        sb.Append(gridHTML)
        sb.Append(""");")
        sb.Append("printWin.document.close();")
        sb.Append("printWin.focus();")
        sb.Append("printWin.print();")
        sb.Append("printWin.close();};")
        sb.Append("</script>")
        ClientScript.RegisterStartupScript(Me.GetType(), "GridPrint", sb.ToString())
        GridView7.PagerSettings.Visible = True
        GridView7.DataBind()
    End Sub


End Class

<%@ Page Language="vb" AutoEventWireup="true" Codebehind="Zac.aspx.vb" Inherits="<Ваш неймспейс>.Zac"%>

<%@ Page Title="" Language="VB" MasterPageFile="~/MasterPage2.master" AutoEventWireup="false" CodeFile="Zac.aspx.vb" Inherits="Zac" %>

<%@ Page Language="vb" AutoEventWireup="true" Codebehind="Zac.aspx.vb" Inherits="<Ваш неймспейс>.Zac"%>

<%@ Page Title="" Language="VB" MasterPageFile="~/MasterPage2.master" AutoEventWireup="false" CodeFile="Zac.aspx.vb" Inherits="Zac" %>

<asp:Button ID="Button225" runat="server" Text="fghgfhfg"  OnClick1="Button225_OnClick"/>

 <asp:Button ID="Button225" runat="server" Text="fghgfhfg"  OnClick="Button225_OnClick"/>

Ошибка сервера в приложении '/'.

Элемент управления 'ContentPlaceHolder1_GridView7' типа 'GridView' должен быть помещен внутрь тега формы с параметром runat=server.

Описание: Необработанное исключение при выполнении текущего веб-запроса. Изучите трассировку стека для получения дополнительных сведений о данной ошибке и о вызвавшем ее фрагменте кода. 

Сведения об исключении: System.Web.HttpException: Элемент управления 'ContentPlaceHolder1_GridView7' типа 'GridView' должен быть помещен внутрь тега формы с параметром runat=server.

Ошибка источника: 

Строка 58:       GridView7.RenderControl(hw)

Public Overloads Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
     Exit Sub
End Sub

<%@ Page Title="" Language="VB" MasterPageFile="~/MasterPage2.master" AutoEventWireup="false" CodeFile="Zac.aspx.vb" Inherits="Zac" EnableEventValidation="false"  %>