Problemas con DataEnvinRonment

Hola Amigos
Como bien sabeis acabo de meterme con el dataenvironment y me surgen dos problemillas

Lo que hago es lo siguiente, meto un comando con sentencia SQL
"Select * from Reparaciones order by Nreg"

luego asigno a cada textbox en el datasource el dataenvinronment, en el datamember el nombre
del comando y en el datafield el nombre de la columna que deseo

Ahora me decido a filtrar el comando que tengo y coloco esto

Private Sub txtnrep_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 And txtnrep <> Empty Then
DataE.rsTodos.Filter = "NRep =" & txtnrep.Text

Label1.Caption = DataE.rsTodos.RecordCount & _
"Registros"
End If
End Sub

me surge un fallo

"El cambio ha sido cancelado durante la notificacion.
no se han cambiado las columnas"

En MSDN ley que antes de hacer algun cambio devia de usar Close y Open
asi lo hice(solo para provar)

Private Sub txtnrep_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 And txtnrep <> Empty Then
DataE.rsTodos.Close
DataE.rsTodos.Open
DataE.rsTodos.Filter = "NRep =" & txtnrep.Text

Label1.Caption = DataE.rsTodos.RecordCount & " Registros"
End If
End Sub

funciona, si hay dos registros me los marca en el label
pero no me cambian los valores de los demas textbox
,siguen en el mismo registro, no me refresca el recordset?

no se en que fallo, quizas deba de tener otro planteamiento diferente
estoy acostumbrado a los datacontrol y nose
si alguien me asesora un poco se lo agradezco

PD: Mi intencion es filtrar una tabla dos o tres veces y luego hacer un reporte

Gracias por todo

</TR>

RE: Problemas con DataEnvinRonment

Lo mejor en estos casos es que lo hagas todo por SQL. Por lo que veo lo único que quieres es controlar el nº de registro, así que:
1º Enlazas como lo tienes y luego:
2º
Private Sub txtnrep_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 And txtnrep <> Empty Then
Si el recordset ya estaba abierto que lo cierre
If DataE.rsTodos.State=adStateOpen Then
DataE.rsTodos.Close
End If
Aplicamos la nueva cláusula SQL:
DataE.Commands("Todos" ).CommandText="Select * from Reparaciones where Nreg=" & txtnreg.text
DataE.Commands("Todos" ).Execute
Aquí modificas la etiqueta que quieras y ya está, porque
los datos se actualizan automáticamente
End If End Sub

__________________
Angeles
-------------------------------------
Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion

RE: Problemas con DataEnvinRonment

Bueno segun mis averiguaciones hepodido observar que mi problema viene porque utilizo el mismo textbox donde se visionan los datos y en el evento keypress meto el codigo para filtrar, en cambio si utilizo un textbox que no este enlazado me funciona bien,
no lo entiendo

¿como puedo filtrar do o tres veces el data envinronment?

un saludo</TR>