para Sdemingo y gracias

ezequiel
03 de Marzo del 2004
Hola que tal sdemingo el codigo que me enviaste dice que no hay ningun
registro activo , como puedo hacer para solucionarlo.
Gracias



Private Sub Command2_Click()
Dim i As Variant
Dim Descripcion As String
For i = 1 To 1000
Data1.Recordset.AddNew
Data1.Recordset.Edit
If IsNull(Data1.Recordset!Descripcion) Then
Descripcion = ""
Else
Descripcion = Data1.Recordset!Descripcion
End If
Grid.TextMatrix(i, 4) = Descripcion

Data1.Recordset.MoveNext
Next i



End Sub



PD: te envie un email para agradecerte pero creo que tenes mal la dirección
porque no lo recibiste

sdemingo
03 de Marzo del 2004
Private Sub Command2_Click()
Dim i As Variant
Dim Descripcion As String
For i = 1 To 1000
If IsNull(Data1.Recordset!Descripcion) Then
Descripcion = ""
Else
Descripcion = Data1.Recordset!Descripcion
End If
Grid.TextMatrix(i, 4) = Descripcion

Data1.Recordset.MoveNext
Next i

End Sub