Fill a repeater one by one

Hi, I have the following XML

< xml version="1.0" standalone="yes" >
<Raiz>
<Registro>
    <Codigo>1</Codigo>
    <Usuario>2</Usuario>
    <Projeto>46</Projeto>
    <Versao>17</Versao>
    <Topico>243</Topico>
    <Data>14/10/2005</Data>
    <Inicio>08:30</Inicio>
    <Termino>12:30</Termino>
    <Relatorio>Verificando problema de marcaA§A￡o de unidade para carteiras virtuais. Conversa com geraldo sobre processo de batimento por carteira, expurgo. Atualizando scripts com novas tabelas e campos do Rogelio; Colocando alteraA§A￡o para relatorios de consolidas (mostra lista de contas na MA￡e) no processo de conciliaA§A￡o - novas tabelas;</Relatorio>
    <InclusA￡o>14/10/2005</InclusA￡o>
    <Importado />
</Registro>
<Registro>
    <Codigo>2</Codigo>
    <Usuario>2</Usuario>
    <Projeto>46</Projeto>
    <Versao>17</Versao>
    <Topico>243</Topico>
    <Data>14/10/2005</Data>
    <Inicio>13:30</Inicio>
    <Termino>18:00</Termino>
    <Relatorio>Colocando alteraA§A￡o para relatorios de consolidas (mostra lista de contas na MA￡e) no processo de conciliaA§A￡o - novas tabelas; Vendo alteraA§Aμes das telas do Rogelio (NA￡o Conc, Manual, etc) - tirando duvidas.</Relatorio>
    <InclusA￡o>14/10/2005</InclusA￡o>
    <Importado />
</Registro>
</Raiz>

And I need to read it and show in a repeater but instead of showing Usuario 2, I need to make a select to show his name...

But I don't know how can I do it, and put in the repeater, like how can I create a ListViewItem as C# in VB to do it

Or what is thebest option

It's a web application, if you colud post a code sample, it will helps me a lot...

Answer this question

Fill a repeater one by one

Jeffrey Liu

Thanks for helping..

But this is to write to the xml, and how can I show it in the repeater..

And I need to change the code to the description, that I'll get from the SQL with cons.User(GetConfig("Registro.Usuario"))

Here is the code that I'm using....

Function carrega_dtg()

Dim ds As New DataSet

Try

ds.ReadXml(SaveLocation)

dv = ds.Tables(0).DefaultView

dv.RowFilter = "Importado = ''"

txtArquivo.Visible = False

Submit1.Visible = False

btnImportar.Visible = True

For Each dr As DataRow In dv.Table.Rows

setConfig("Registro.Usuario", cons.Usuario(CInt(dr("Usuario"))), CShort(dr("Codigo")))

setConfig("Registro.Versao", cons.Usuario(dr("Versao")), dr("Codigo"))

setConfig("Registro.Topico", cons.Usuario(dr("Topico")), dr("Codigo"))

setConfig("Registro.Projeto", cons.Usuario(dr("Projeto")), dr("Codigo"))

Next

ds.ReadXml(SaveLocation)

dv = ds.Tables(0).DefaultView

dv.RowFilter = "Importado = ''"

lstRegistros.DataSource = dv.Table.DefaultView

lstRegistros.DataBind()

Catch ex As Exception

Response.Write("Erro: " & ex.Message)

End Try

End Function

Leon Han

Hi

Those are two functions that can do the job

Public dbsConfig As New DataSet

Public Function getConfig(ByVal ConfigName As String, Optional ByVal RecordNumber As Short = 0) As String

Dim Params() As String = ConfigName.Split(".")

Dim strData As String = ""

strData = dbsConfig.Tables(Params(0)).Rows(RecordNumber).Item(Params(1))

Return strData

End Function

Public Function setConfig(ByVal ConfigName As String, ByVal Value As String, Optional ByVal RecordNumber As Short = 0)

Dim Params() As String = ConfigName.Split(".")

Dim strData As String = ""

dbsConfig.AcceptChanges()

dbsConfig.Tables(Params(0)).Rows(RecordNumber).Item(Params(1)) = Value

dbsConfig.WriteXml(Application.StartupPath & "\" & "AppConfig.xml")

End Function

Then you add the following line to you Form_Load event before using the GetConfig and SetConfig methods

dbsConfig.ReadXml(Application.StartupPath & "\" & "MyXMLFile.xml")

And To use them GetConfig("Registro.Topico") will return 243

Enjoy

Abdullah Al-Rasheed

Fill a repeater one by one

Answer this question