G
Guest
Hi
I creating object in run-time and render the webform, but when I want drop this object I don´t render the page without this object, but in next autopostback of the webform is render correct
I use an arraylist in session page, and render the page
below is the code
thanks by time
Cabra
'VB code - Begi
Public Class WebForm
Inherits System.Web.UI.Pag
#Region " Web Form Designer Generated Code
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent(
End Su
Protected WithEvents tb As System.Web.UI.WebControls.Tabl
Protected WithEvents txtAgV As System.Web.UI.WebControls.TextBo
Protected WithEvents txtCCV As System.Web.UI.WebControls.TextBo
Protected WithEvents txtDCV As System.Web.UI.WebControls.TextBo
Protected WithEvents txtPrV As System.Web.UI.WebControls.TextBo
Protected WithEvents cmdDel As System.Web.UI.WebControls.ImageButto
Protected WithEvents lblCtaV As System.Web.UI.WebControls.Labe
Protected WithEvents cmdAdd As System.Web.UI.WebControls.ImageButto
Protected WithEvents Button1 As System.Web.UI.WebControls.Butto
Private designerPlaceholderDeclaration As System.Objec
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Ini
InitializeComponent(
End Su
#End Regio
Private lcArray As New ArrayLis
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Loa
If Page.IsPostBack The
If sender.ToString.ToUpper = "ASP.WEBFORM3_ASPX" The
If Not IsNothing(Page.Session("Array")) Then lcArray = Page.Session("Array"
ElseIf Left(sender.id, 6).ToUpper = "CMDDEL" The
Excluir(sender
End I
Els
Page.Session.Remove("Array"
End I
MontarTela(
End Su
Private Sub MontarTela(
For lci As Int16 = 0 To lcArray.Count -
If Not IsNothing(lcArray.Item(lci)) The
tb.Controls.Add(CType(lcArray(lci), TableRow)
End I
Nex
End Su
Private Sub Controles_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs
Dim lcTxt As TextBox = CType(sender, TextBox
Dim lcID As String = lcTxt.I
Dim lcIdx As Int16 = CType(Replace(lcID, Left(lcID, 6), ""), Int16
CType(CType(lcArray(lcIdx), TableRow).Controls(1).Controls(0), TextBox).Text = lcTxt.Tex
End Su
Private Sub AddItem_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles cmdAdd.Clic
AdicionarItem(sender, e
End Su
Private Function CriarTextBox(ByVal pNome As String) As TextBo
Dim lcTxt As New TextBo
Dim lcUnit As New Unit(50
Dim lcUnit2 As New Unit(100
With lcTx
.AutoPostBack = Tru
.ID = pNom
.Attributes.Add("runat", "server"
If Left(pNome, 6).ToUpper = "TXTCCV" The
.Width = lcUnit
Els
.Width = lcUni
End I
AddHandler .TextChanged, AddressOf Controles_TextChange
End Wit
Return lcTx
End Functio
Private Sub RemItem_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles cmdDel.Clic
ExcluirItem(sender, e
End Su
Private Sub Excluir(ByVal sender As System.Object
Dim lcIdx As Int16 = CType(Replace(CType(sender, ImageButton).ID, "cmdDel", ""), Int16
lcArray.Item(lcIdx) = Nothin
Page.Session.Add("Array", lcArray
End Su
Private Sub ExcluirItem(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs
Page_Load(sender, New System.EventArgs
End Su
Private Sub AdicionarItem(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs
Dim lcTr As New TableRow, lcTD(6) As TableCell, lcNome(5) As Strin
Dim lcLblA As New Label, lcCmdF As New ImageButto
For lcI As Int16 = 0 To 6
lcTD(lcI) = New TableCell
If lcI < 6 Then lcNome(lcI) = New String("")
Next
lcNome(0) = "lblCtaV" : lcNome(1) = "txtAgV"
lcNome(2) = "txtCCV" : lcNome(3) = "txtDCV"
lcNome(4) = "txtPrV" : lcNome(5) = "cmdDel"
With lcLblA
.ID = "lblCtaV" & lcArray.Count.ToString
.Text = lblCtaV.Text
End With
With lcCmdF
.ID = "cmdDel" & lcArray.Count.ToString
.ImageUrl = "../../Imagens/bot_excluir.GIF"
AddHandler .Click, AddressOf RemItem_Click
End With
With lcTD(0)
.Controls.Add(lcLblA)
.Attributes.Add("class", "detalhe")
End With
lcTr.Controls.Add(lcTD(0))
For lcI As Int16 = 1 To 4
lcTD(lcI).Controls.Add(CriarTextBox(lcNome(lcI) & lcArray.Count.ToString))
lcTD(lcI).Attributes.Add("class", "detalhe")
lcTr.Controls.Add(lcTD(lcI))
Next
With lcTD(5)
.HorizontalAlign = HorizontalAlign.Center
.Attributes.Add("class", "detalhe")
.Controls.Add(lcCmdF)
End With
With lcTD(6)
.Attributes.Add("class", "detalhe")
.Text = " "
End With
For lcI As Int16 = 0 To 6
lcTr.Controls.Add(lcTD(lci))
Next
lcArray.Add(lcTr)
Page.Session.Add("Array", lcArray)
Page_Load(sender, New System.EventArgs)
End Sub
End Class
'VB code - End
'HTML Code - Begin
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm3.aspx.vb" Inherits="Projeto.WebForm3"%><HTML><HEAD><title>WebForm3</title><meta name="vs_defaultClientScript" content="JavaScript"><meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5"></HEAD><body MS_POSITIONING="GridLayout"><form id="Form1" method="post" runat="server"><asp:table id="tb" style="Z-INDEX: 101; LEFT: 112px; POSITION: absolute; TOP: 80px" runat="server"
Width="450px"><asp:TableRow><asp:TableCell Width="100px" Text="Descrição" CssClass="cabecalho"></asp:TableCell><asp:TableCell Width="50px" Text="Agência" CssClass="cabecalho"></asp:TableCell><asp:TableCell Width="100px" Text="Conta" CssClass="cabecalho"></asp:TableCell><asp:TableCell Width="50px" Text="DAC" CssClass="cabecalho"></asp:TableCell><asp:TableCell Width="50px" Text="%" CssClass="cabecalho"></asp:TableCell><asp:TableCell Width="50px" Text="Excluir" CssClass="cabecalho"></asp:TableCell><asp:TableCell Width="50px" Text="Nova" CssClass="cabecalho"></asp:TableCell></asp:TableRow><asp:TableRow><asp:TableCell Width="100px" CssClass="detalhe"><asp:label id="lblCta1" runat="server">Conta Provisão</asp:label></asp:TableCell><asp:TableCell Width="50px" CssClass="detalhe"><asp:textbox id="txtAg1" runat="server" Width="50px"></asp:textbox></asp:TableCell><asp:TableCell Width="100px" CssClass="detalhe"><asp:textbox id="txtCC1" runat="server" Width="100px"></asp:textbox></asp:TableCell><asp:TableCell Width="50px" CssClass="detalhe"><asp:textbox id="txtDC1" runat="server" Width="50px"></asp:textbox></asp:TableCell><asp:TableCell Width="50px" CssClass="detalhe"> </asp:TableCell><asp:TableCell Width="50px" CssClass="detalhe"> </asp:TableCell><asp:TableCell Width="50px" CssClass="detalhe"> </asp:TableCell></asp:TableRow><asp:TableRow><asp:TableCell Width="100px" CssClass="detalhe"><asp:label id="lblCta2" runat="server">Conta Receita</asp:label></asp:TableCell><asp:TableCell Width="50px" CssClass="detalhe"><asp:textbox id="txtAg2" runat="server" Width="50px"></asp:textbox></asp:TableCell><asp:TableCell Width="100px" CssClass="detalhe"><asp:textbox id="txtCC2" runat="server" Width="100px"></asp:textbox></asp:TableCell><asp:TableCell Width="50px" CssClass="detalhe"><asp:textbox id="txtDC2" runat="server" Width="50px"></asp:textbox></asp:TableCell><asp:TableCell Width="50px" CssClass="detalhe"> </asp:TableCell><asp:TableCell Width="50px" CssClass="detalhe"> </asp:TableCell><asp:TableCell Width="50px" CssClass="detalhe"> </asp:TableCell></asp:TableRow><asp:TableRow><asp:TableCell Width="100px" CssClass="detalhe"><asp:label id="lblCtaV" runat="server">Conta Gestora</asp:label></asp:TableCell><asp:TableCell Width="50px" CssClass="detalhe"><asp:textbox id="txtAgV" runat="server" Width="50px" /></asp:TableCell><asp:TableCell Width="100px" CssClass="detalhe"><asp:textbox id="txtCCV" runat="server" Width="100px" /></asp:TableCell><asp:TableCell Width="50px" CssClass="detalhe"><asp:textbox id="txtDCV" runat="server" Width="50px" /></asp:TableCell><asp:TableCell Width="50px" CssClass="detalhe"><asp:textbox id="txtPrV" runat="server" Width="50px" /></asp:TableCell><asp:TableCell Width="50px" CssClass="detalhe" HorizontalAlign="Center"><asp:ImageButton id="cmdDel" runat="server" ImageUrl="../../Imagens/bot_excluir.GIF" /></asp:TableCell><asp:TableCell Width="50px" CssClass="detalhe" HorizontalAlign="Center"><asp:ImageButton id="cmdAdd" runat="server" CssClass="branco" ImageUrl="../../Imagens/bot_mais.gif" /></asp:TableCell></asp:TableRow></asp:table><asp:Button id="Button1" style="Z-INDEX: 102; LEFT: 576px; POSITION: absolute; TOP: 80px" runat="server"
Width="64px" Text="Atualizar" Height="32px"></asp:Button></form></body></HTML>
I creating object in run-time and render the webform, but when I want drop this object I don´t render the page without this object, but in next autopostback of the webform is render correct
I use an arraylist in session page, and render the page
below is the code
thanks by time
Cabra
'VB code - Begi
Public Class WebForm
Inherits System.Web.UI.Pag
#Region " Web Form Designer Generated Code
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent(
End Su
Protected WithEvents tb As System.Web.UI.WebControls.Tabl
Protected WithEvents txtAgV As System.Web.UI.WebControls.TextBo
Protected WithEvents txtCCV As System.Web.UI.WebControls.TextBo
Protected WithEvents txtDCV As System.Web.UI.WebControls.TextBo
Protected WithEvents txtPrV As System.Web.UI.WebControls.TextBo
Protected WithEvents cmdDel As System.Web.UI.WebControls.ImageButto
Protected WithEvents lblCtaV As System.Web.UI.WebControls.Labe
Protected WithEvents cmdAdd As System.Web.UI.WebControls.ImageButto
Protected WithEvents Button1 As System.Web.UI.WebControls.Butto
Private designerPlaceholderDeclaration As System.Objec
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Ini
InitializeComponent(
End Su
#End Regio
Private lcArray As New ArrayLis
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Loa
If Page.IsPostBack The
If sender.ToString.ToUpper = "ASP.WEBFORM3_ASPX" The
If Not IsNothing(Page.Session("Array")) Then lcArray = Page.Session("Array"
ElseIf Left(sender.id, 6).ToUpper = "CMDDEL" The
Excluir(sender
End I
Els
Page.Session.Remove("Array"
End I
MontarTela(
End Su
Private Sub MontarTela(
For lci As Int16 = 0 To lcArray.Count -
If Not IsNothing(lcArray.Item(lci)) The
tb.Controls.Add(CType(lcArray(lci), TableRow)
End I
Nex
End Su
Private Sub Controles_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs
Dim lcTxt As TextBox = CType(sender, TextBox
Dim lcID As String = lcTxt.I
Dim lcIdx As Int16 = CType(Replace(lcID, Left(lcID, 6), ""), Int16
CType(CType(lcArray(lcIdx), TableRow).Controls(1).Controls(0), TextBox).Text = lcTxt.Tex
End Su
Private Sub AddItem_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles cmdAdd.Clic
AdicionarItem(sender, e
End Su
Private Function CriarTextBox(ByVal pNome As String) As TextBo
Dim lcTxt As New TextBo
Dim lcUnit As New Unit(50
Dim lcUnit2 As New Unit(100
With lcTx
.AutoPostBack = Tru
.ID = pNom
.Attributes.Add("runat", "server"
If Left(pNome, 6).ToUpper = "TXTCCV" The
.Width = lcUnit
Els
.Width = lcUni
End I
AddHandler .TextChanged, AddressOf Controles_TextChange
End Wit
Return lcTx
End Functio
Private Sub RemItem_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles cmdDel.Clic
ExcluirItem(sender, e
End Su
Private Sub Excluir(ByVal sender As System.Object
Dim lcIdx As Int16 = CType(Replace(CType(sender, ImageButton).ID, "cmdDel", ""), Int16
lcArray.Item(lcIdx) = Nothin
Page.Session.Add("Array", lcArray
End Su
Private Sub ExcluirItem(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs
Page_Load(sender, New System.EventArgs
End Su
Private Sub AdicionarItem(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs
Dim lcTr As New TableRow, lcTD(6) As TableCell, lcNome(5) As Strin
Dim lcLblA As New Label, lcCmdF As New ImageButto
For lcI As Int16 = 0 To 6
lcTD(lcI) = New TableCell
If lcI < 6 Then lcNome(lcI) = New String("")
Next
lcNome(0) = "lblCtaV" : lcNome(1) = "txtAgV"
lcNome(2) = "txtCCV" : lcNome(3) = "txtDCV"
lcNome(4) = "txtPrV" : lcNome(5) = "cmdDel"
With lcLblA
.ID = "lblCtaV" & lcArray.Count.ToString
.Text = lblCtaV.Text
End With
With lcCmdF
.ID = "cmdDel" & lcArray.Count.ToString
.ImageUrl = "../../Imagens/bot_excluir.GIF"
AddHandler .Click, AddressOf RemItem_Click
End With
With lcTD(0)
.Controls.Add(lcLblA)
.Attributes.Add("class", "detalhe")
End With
lcTr.Controls.Add(lcTD(0))
For lcI As Int16 = 1 To 4
lcTD(lcI).Controls.Add(CriarTextBox(lcNome(lcI) & lcArray.Count.ToString))
lcTD(lcI).Attributes.Add("class", "detalhe")
lcTr.Controls.Add(lcTD(lcI))
Next
With lcTD(5)
.HorizontalAlign = HorizontalAlign.Center
.Attributes.Add("class", "detalhe")
.Controls.Add(lcCmdF)
End With
With lcTD(6)
.Attributes.Add("class", "detalhe")
.Text = " "
End With
For lcI As Int16 = 0 To 6
lcTr.Controls.Add(lcTD(lci))
Next
lcArray.Add(lcTr)
Page.Session.Add("Array", lcArray)
Page_Load(sender, New System.EventArgs)
End Sub
End Class
'VB code - End
'HTML Code - Begin
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm3.aspx.vb" Inherits="Projeto.WebForm3"%><HTML><HEAD><title>WebForm3</title><meta name="vs_defaultClientScript" content="JavaScript"><meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5"></HEAD><body MS_POSITIONING="GridLayout"><form id="Form1" method="post" runat="server"><asp:table id="tb" style="Z-INDEX: 101; LEFT: 112px; POSITION: absolute; TOP: 80px" runat="server"
Width="450px"><asp:TableRow><asp:TableCell Width="100px" Text="Descrição" CssClass="cabecalho"></asp:TableCell><asp:TableCell Width="50px" Text="Agência" CssClass="cabecalho"></asp:TableCell><asp:TableCell Width="100px" Text="Conta" CssClass="cabecalho"></asp:TableCell><asp:TableCell Width="50px" Text="DAC" CssClass="cabecalho"></asp:TableCell><asp:TableCell Width="50px" Text="%" CssClass="cabecalho"></asp:TableCell><asp:TableCell Width="50px" Text="Excluir" CssClass="cabecalho"></asp:TableCell><asp:TableCell Width="50px" Text="Nova" CssClass="cabecalho"></asp:TableCell></asp:TableRow><asp:TableRow><asp:TableCell Width="100px" CssClass="detalhe"><asp:label id="lblCta1" runat="server">Conta Provisão</asp:label></asp:TableCell><asp:TableCell Width="50px" CssClass="detalhe"><asp:textbox id="txtAg1" runat="server" Width="50px"></asp:textbox></asp:TableCell><asp:TableCell Width="100px" CssClass="detalhe"><asp:textbox id="txtCC1" runat="server" Width="100px"></asp:textbox></asp:TableCell><asp:TableCell Width="50px" CssClass="detalhe"><asp:textbox id="txtDC1" runat="server" Width="50px"></asp:textbox></asp:TableCell><asp:TableCell Width="50px" CssClass="detalhe"> </asp:TableCell><asp:TableCell Width="50px" CssClass="detalhe"> </asp:TableCell><asp:TableCell Width="50px" CssClass="detalhe"> </asp:TableCell></asp:TableRow><asp:TableRow><asp:TableCell Width="100px" CssClass="detalhe"><asp:label id="lblCta2" runat="server">Conta Receita</asp:label></asp:TableCell><asp:TableCell Width="50px" CssClass="detalhe"><asp:textbox id="txtAg2" runat="server" Width="50px"></asp:textbox></asp:TableCell><asp:TableCell Width="100px" CssClass="detalhe"><asp:textbox id="txtCC2" runat="server" Width="100px"></asp:textbox></asp:TableCell><asp:TableCell Width="50px" CssClass="detalhe"><asp:textbox id="txtDC2" runat="server" Width="50px"></asp:textbox></asp:TableCell><asp:TableCell Width="50px" CssClass="detalhe"> </asp:TableCell><asp:TableCell Width="50px" CssClass="detalhe"> </asp:TableCell><asp:TableCell Width="50px" CssClass="detalhe"> </asp:TableCell></asp:TableRow><asp:TableRow><asp:TableCell Width="100px" CssClass="detalhe"><asp:label id="lblCtaV" runat="server">Conta Gestora</asp:label></asp:TableCell><asp:TableCell Width="50px" CssClass="detalhe"><asp:textbox id="txtAgV" runat="server" Width="50px" /></asp:TableCell><asp:TableCell Width="100px" CssClass="detalhe"><asp:textbox id="txtCCV" runat="server" Width="100px" /></asp:TableCell><asp:TableCell Width="50px" CssClass="detalhe"><asp:textbox id="txtDCV" runat="server" Width="50px" /></asp:TableCell><asp:TableCell Width="50px" CssClass="detalhe"><asp:textbox id="txtPrV" runat="server" Width="50px" /></asp:TableCell><asp:TableCell Width="50px" CssClass="detalhe" HorizontalAlign="Center"><asp:ImageButton id="cmdDel" runat="server" ImageUrl="../../Imagens/bot_excluir.GIF" /></asp:TableCell><asp:TableCell Width="50px" CssClass="detalhe" HorizontalAlign="Center"><asp:ImageButton id="cmdAdd" runat="server" CssClass="branco" ImageUrl="../../Imagens/bot_mais.gif" /></asp:TableCell></asp:TableRow></asp:table><asp:Button id="Button1" style="Z-INDEX: 102; LEFT: 576px; POSITION: absolute; TOP: 80px" runat="server"
Width="64px" Text="Atualizar" Height="32px"></asp:Button></form></body></HTML>