Que tal foro, tengo 2 problemas, en primero es que tengo una serie de datos
guardados en un dataset, los quiero actualizar en un xml, el codigo que
tengo es el sig:
Prog1.Value = 2
Dim fsXML As New FileStream(XMLFileName, FileMode.Open)
Prog1.Value = 3
Dim wrXML As New XmlTextWriter(fsXML, Encoding.Unicode)
Prog1.Value = 4
SBStatus.Text = "Salvando datos del XML"
Prog1.Value = 5
data.WriteXml(wrXML, XmlWriteMode.WriteSchema)
Prog1.Value = 6
wrXML.Close()
Prog1.Value = 7
fsXML.Close()
SBStatus.Text = "Datos Guardados Correctamente"
El detalle es que cuando de doy guardar, o me sobreescribe el xml, sino que
guarda hasta 3 veces lo mismo, ademas de que tengo que refrescar la carga de
datos del xml, ya que de lo contrario no me guarda bien la estructura del
xml.
Por otro lado, cargo los datos ddel xml a un combo, el codigo es el sig:
Private Sub displayData()
SBStatus.Text = "Displaying data"
Prog1.Value = 10
Prog1.Value = 20
Prog1.Value = 30
CoboFolio.DisplayMember = "Folio"
Prog1.Value = 40
Prog1.Value = 50
Prog1.Value = 80
SBStatus.Text = "Completed displaying data"
TabCtrlVerIns.SelectedIndex = 1
btnsave.Enabled = True
End Sub
Para cargarlo en el combo utilizo algo asi:
Private Sub CoboFolio_SelectedIndexChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles CoboFolio.SelectedIndexChanged
resetData()
If CoboFolio.SelectedIndex >= 0 Then
Dim strRF As String
Dim row As DataRowView = CType(CoboFolio.Items(CoboFolio.SelectedIndex),
DataRowView)
Me.CoboFolio.DisplayMember = "folio"
Me.Txttipo.Text = RTrim(row("tipo"))
If Txttipo.Text = "V" Then
Txttipo.Text = "Verificacion"
Else
Txttipo.Text = "Inspeccion"
End If
Me.txtfsol.Text = row("fecha")
Me.txtfres.Text = row("Fecha2")
End If
End Sub
El detalle aqui es que al cargar los datos en el combo los carga bien, solo
que los va cargando uno por uno y tarda mucho en cargar, quisiera saver si
hay alguna forma de hacerlos mas rapido.
De antemano muchas gracias.
Leer las respuestas