Imports Microsoft.VisualBasic
Public Class Cesta
Public Shared varCodigo As Integer
Public Shared varNome As String
Public Shared varImagem As String
Public Shared varQuantidade As Integer
Public Shared varPrecoUnitario As Double
Public Shared varSubTotal As Double
Public Sub New(ByVal pro_cod As Integer, ByVal pro_nom As String, ByVal pro_ima_pri As String, ByVal pro_qua As Integer, ByVal pro_pre As Double, ByVal pro_sub_tot As Double)
varCodigo = pro_cod
varNome = pro_nom
varImagem = pro_ima_pri
varQuantidade = pro_qua
varPrecoUnitario = pro_pre
varSubTotal = pro_sub_tot
End Sub
Public Shared Property Codigo() As Integer
Get
Return varCodigo
End Get
Set(ByVal value As Integer)
varCodigo = value
End Set
End Property
Public Shared Property Nome() As String
Get
Return varNome
End Get
Set(ByVal value As String)
varNome = value
End Set
End Property
Public Shared Property Imagem() As String
Get
Return varImagem
End Get
Set(ByVal value As String)
varImagem = value
End Set
End Property
Public Shared Property Quantidade() As Integer
Get
Return varQuantidade
End Get
Set(ByVal value As Integer)
varQuantidade = value
End Set
End Property
Public Shared Property PrecoUnitario() As Double
Get
Return varPrecoUnitario
End Get
Set(ByVal value As Double)
varPrecoUnitario = value
End Set
End Property
Public Shared Property SubTotal() As Double
Get
Return varSubTotal
End Get
Set(ByVal value As Double)
varSubTotal = value
End Set
End Property
End Class
Public Class acaoCesta
Public Shared lstCesta As New List(Of Cesta)()
Public Sub RetirarDaCesta(ByVal codigoProduto As Cesta)
lstCesta.Remove(codigoProduto)
End Sub
Public Shared Sub AdicionaNaCesta(ByVal _Codigo As Integer, ByVal _Nome As String, ByVal _Imagem As String, ByVal _Quantidade As Integer, ByVal _PrecoUnitario As Double, ByVal _SubTotal As Double)
lstCesta.Add(New Cesta(_Codigo, _Nome, _Imagem, _Quantidade, _PrecoUnitario, _SubTotal))
End Sub
Public Sub ListaCesta(ByVal gv As GridView)
gv.DataSource = lstCesta
gv.DataBind()
End Sub
End Class
Pergunta
mestre fyoda
default.aspx.vb
Default.aspx<asp:GridView ID="gvCarrinho" runat="server" AutoGenerateColumns="False" GridLines="Both" AllowPaging="True" OnRowCommand="gvCarrinho_RowCommand" DataKeyNames="Codigo" ShowFooter="True" > <Columns> <asp:TemplateField> <ItemTemplate> <asp:Image ID="ImagemProduto" ImageUrl='<%# Eval("Imagem", "img_produto/{0}") %>' runat="server"></asp:Image> </ItemTemplate> </asp:TemplateField> <asp:BoundField DataField="Nome" HeaderText="Produto" HeaderStyle-Width = "14%" ControlStyle-Font-Bold="true" > <ControlStyle Font-Bold="True"></ControlStyle> <HeaderStyle Width="15%"></HeaderStyle> </asp:BoundField> <asp:TemplateField HeaderText="Quantidade"> <ItemTemplate> <asp:TextBox ID="Quantidade" Text='<%# Eval("Quantidade") %>' runat="server"></asp:TextBox> </ItemTemplate> </asp:TemplateField> <asp:TemplateField HeaderText="Remover"> <ItemTemplate> <asp:ImageButton ImageAlign="AbsMiddle" ImageUrl="img/delete.png" ID="lblDeletar" runat="server" CommandArgument='<%# Eval("Codigo") %>' CommandName="Remover" /></asp:ImagaButton> </ItemTemplate> </asp:TemplateField> <asp:TemplateField HeaderText="Preo Unitrio"> <ItemTemplate> <asp:Label ID="lblPrecoUnitario" runat="server" Text='<%# FormatCurrency(Eval("PrecoUnitario"), 2) %>'></asp:Label> </ItemTemplate> </asp:TemplateField> <asp:TemplateField HeaderText="SubTotal"> <ItemTemplate> <asp:Label ID="lblSubTotal" runat="server" Text='<%# FormatCurrency(Eval("SubTotal"), 2) %>'></asp:Label> </ItemTemplate> </asp:TemplateField> </Columns> </asp:GridView>porque da o seguinte erro: DataBinding: 'Cesta' não contém uma propriedade com o nome 'Codigo'
quando populo o gridview com o LIST( OF ) ?
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.