POPULANDO LISTVIEW COM STRING
Bom dia bravos Programadores!
é o seguinte...tenho um listview no asp.net, e quero popular ele no vb.net
mas estou usando o metodo Split, e não estou conseguindo popular o listview
segue o código:
asp.net:
<td align=[Ô]center[Ô]>
<asp:ListView ID=[Ô]lst_Resultado[Ô] runat=[Ô]server[Ô] Visible=[Ô]true[Ô]/>
</td>
vb.net
Private Sub btn_Aplicar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_Aplicar.Click
Dim str As String = txt_Entrada.Text
Dim palavras() As String = str.Split(New Char() {[Ô] [Ô]c})
Dim dt As New DataTable
Dim linha As DataRow
Dim coluna As DataColumn = dt.Columns.Add
Dim palavra As String
For Each palavra In palavras
linha = dt.NewRow
linha(0) = palavra
dt.Rows.Add(linha)
Next
lst_Resultado.DataSource = dt
lst_Resultado.DataBind()
End Sub
se alguem poder me ajudar agradeço!
é o seguinte...tenho um listview no asp.net, e quero popular ele no vb.net
mas estou usando o metodo Split, e não estou conseguindo popular o listview
segue o código:
asp.net:
<td align=[Ô]center[Ô]>
<asp:ListView ID=[Ô]lst_Resultado[Ô] runat=[Ô]server[Ô] Visible=[Ô]true[Ô]/>
</td>
vb.net
Private Sub btn_Aplicar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_Aplicar.Click
Dim str As String = txt_Entrada.Text
Dim palavras() As String = str.Split(New Char() {[Ô] [Ô]c})
Dim dt As New DataTable
Dim linha As DataRow
Dim coluna As DataColumn = dt.Columns.Add
Dim palavra As String
For Each palavra In palavras
linha = dt.NewRow
linha(0) = palavra
dt.Rows.Add(linha)
Next
lst_Resultado.DataSource = dt
lst_Resultado.DataBind()
End Sub
se alguem poder me ajudar agradeço!
RESOLVIDO
Private Sub btn_Aplicar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_Aplicar.Click
Dim str As String = txt_Entrada.Text
Dim palavras1 As List(Of String) = New List(Of String)
Dim palavra As String
Dim separador() As Char
If txt_Delimitardor.Text = [Ô][Ô] Then
separador = New Char() {[Ô] [Ô]c}
Else
separador = New Char() + txt_Delimitardor.Text.ToCharArray
End If
Dim palavras() As String = str.Split(separador)
For Each palavra In palavras
palavras1.Add(palavra)
Next
lbl.Text = palavras1.Count
lbl2.Visible = True
lst_Resultado.DataSource = palavras1
lst_Resultado.DataBind()
End Sub
Private Sub lst_Resultado_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.ListViewItemEventArgs) Handles lst_Resultado.ItemDataBound
If e.Item.ItemType = ListViewItemType.DataItem Then
DirectCast(e.Item.FindControl([Ô]NameLabel[Ô]), Label).Text = DirectCast(e.Item, ListViewDataItem).DataItem.ToString
End If
End Sub
ASP.NET:
<asp:ListView ID=[Ô]lst_Resultado[Ô] runat=[Ô]server[Ô] GroupPlaceholderID=[Ô]ContactRowContainer[Ô] ItemPlaceholderID=[Ô]ContactItemContainer[Ô]>
<LayoutTemplate>
<table border=[Ô]1[Ô] cellpadding=[Ô]4[Ô] width=[Ô]640px[Ô] runat=[Ô]server[Ô] id=[Ô]tblContacts[Ô]>
<tr id=[Ô]Tr1[Ô] runat=[Ô]server[Ô]>
<th id=[Ô]Th1[Ô] colspan=[Ô]3[Ô] runat=[Ô]server[Ô]>Splitado</th>
</tr>
<tr runat=[Ô]server[Ô] id=[Ô]ContactRowContainer[Ô] />
</table>
<%--Faz a Paginação--%>
<asp:DataPager ID=[Ô]ContactsDataPager[Ô] runat=[Ô]server[Ô] PageSize=[Ô]30[Ô]>
<Fields>
<asp:NumericPagerField ButtonCount=[Ô]10[Ô] />
</Fields>
</asp:DataPager>
<br />
</LayoutTemplate>
<GroupTemplate>
<tr runat=[Ô]server[Ô] id=[Ô]ContactRow[Ô]>
<td id=[Ô]ContactItemContainer[Ô] />
</tr>
</GroupTemplate>
<ItemTemplate>
<td id=[Ô]Td1[Ô]>
<asp:Label ID=[Ô]NameLabel[Ô] runat=[Ô]server[Ô] />
</td>
</ItemTemplate>
</asp:ListView>
Private Sub btn_Aplicar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_Aplicar.Click
Dim str As String = txt_Entrada.Text
Dim palavras1 As List(Of String) = New List(Of String)
Dim palavra As String
Dim separador() As Char
If txt_Delimitardor.Text = [Ô][Ô] Then
separador = New Char() {[Ô] [Ô]c}
Else
separador = New Char() + txt_Delimitardor.Text.ToCharArray
End If
Dim palavras() As String = str.Split(separador)
For Each palavra In palavras
palavras1.Add(palavra)
Next
lbl.Text = palavras1.Count
lbl2.Visible = True
lst_Resultado.DataSource = palavras1
lst_Resultado.DataBind()
End Sub
Private Sub lst_Resultado_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.ListViewItemEventArgs) Handles lst_Resultado.ItemDataBound
If e.Item.ItemType = ListViewItemType.DataItem Then
DirectCast(e.Item.FindControl([Ô]NameLabel[Ô]), Label).Text = DirectCast(e.Item, ListViewDataItem).DataItem.ToString
End If
End Sub
ASP.NET:
<asp:ListView ID=[Ô]lst_Resultado[Ô] runat=[Ô]server[Ô] GroupPlaceholderID=[Ô]ContactRowContainer[Ô] ItemPlaceholderID=[Ô]ContactItemContainer[Ô]>
<LayoutTemplate>
<table border=[Ô]1[Ô] cellpadding=[Ô]4[Ô] width=[Ô]640px[Ô] runat=[Ô]server[Ô] id=[Ô]tblContacts[Ô]>
<tr id=[Ô]Tr1[Ô] runat=[Ô]server[Ô]>
<th id=[Ô]Th1[Ô] colspan=[Ô]3[Ô] runat=[Ô]server[Ô]>Splitado</th>
</tr>
<tr runat=[Ô]server[Ô] id=[Ô]ContactRowContainer[Ô] />
</table>
<%--Faz a Paginação--%>
<asp:DataPager ID=[Ô]ContactsDataPager[Ô] runat=[Ô]server[Ô] PageSize=[Ô]30[Ô]>
<Fields>
<asp:NumericPagerField ButtonCount=[Ô]10[Ô] />
</Fields>
</asp:DataPager>
<br />
</LayoutTemplate>
<GroupTemplate>
<tr runat=[Ô]server[Ô] id=[Ô]ContactRow[Ô]>
<td id=[Ô]ContactItemContainer[Ô] />
</tr>
</GroupTemplate>
<ItemTemplate>
<td id=[Ô]Td1[Ô]>
<asp:Label ID=[Ô]NameLabel[Ô] runat=[Ô]server[Ô] />
</td>
</ItemTemplate>
</asp:ListView>
Tópico encerrado , respostas não são mais permitidas