Código
[/code]
[code=vb] me gustaria guardar en un fichero los datos de una lista he probado estas dos cosas y no me funcion ---------------modo b ' me da un error en dato = Nombre & "=cstr('"List2.List(i)"')" el ejercicio http://www.megaupload.com/?d=RYXXUSP2 Private Sub cb_confirmar_Click() Dim dato As String If List2.ListCount < 16 Then Open "c:\examen.txt" For Append As #1 For i = 0 To List2.ListCount dato = Nombre & "=cstr('"List2.List(i)"')" Data1.Recordset.FindFirst dato If List2.List(i) = dato Then Write #1, Data1.Recordset.Fields("nombre"), Data1.Recordset.Fields("demarcacion"), Data1.Recordset.Fields("dorsal"), Data1.Recordset.Fields("partidos") End If Next Close #1 Else MsgBox ("La convocatoria tiene mas de 16 jugadores") End If End Sub ---------------------- modo a 'el ejercicio http://www.megaupload.com/?d=RYXXUSP2 ' intento guardar los datos a un fichero y no me escribe nada 'tengo un data1 con los siguientes datos Nombre, Demarcacion,dorsal,partidos 'el ejercicio consta de una lista con los nombre de los jugadores 'para guardar he puesto, pero no me hace nada Private Sub cb_confirmar_Click() Dim dato As String If List2.ListCount < 16 Then Open "c:\examen.txt" For Append As #1 For i = 0 To List2.ListCount Do While Not Data1.Recordset.EOF dato = Data1.Recordset.Fields("nombre") If List2.List(i) = dato Then Write #1, Data1.Recordset.Fields("nombre"), Data1.Recordset.Fields("demarcacion"), Data1.Recordset.Fields("dorsal"), Data1.Recordset.Fields("partidos") End If Loop Next Close #1 Else MsgBox ("La convocatoria tiene mas de 16 jugadores") End If End Sub