hola, le explico lo que deseo hacer:
(http://img408.imageshack.us/img408/8872/datagrid2ne.png)
este datagrid1 lo estoy utilizando de consulta conectado con un DataEnvironment. en la imagen como se muestra esta seleccionado uno de las filas(o registro), mi siguiente paso es dar click en la segunda figura del Toolbar1 que para mi es modificar y cuando este evento ocurra me muestre el frmcliente pero que en este frmproveedorcliente me muestre los datos del registro que estuvo selecionado(http://img442.imageshack.us/img442/4831/from3ta.png)
el problema es que los texbox del frmproveedorcliente me jala el ultimo registro
en conclusion¿que codigo debo poner para que al hacer click en la figura de modificar, me muestre el frmproveedorcliente y que los textbox de este frmproveedorclientes jale las que estuvo selecionada anteriormente en el datagrid1 del frmconsultaproveedorcliente?
nota: los textbox del frmproveedorclientes.. estan conectatos con dataenviroment
Como no muestras el codigo que estas utlizando no puedo ver donde estas el error.
Te hiba a sugerir que hagues una consulta apartir del codigo, pero como te saca la ultima fila seria lo mismo.
Pon el codigo que estas usado....
en case4: deseo que al hacer click me aparezca el frmproveedorcliente pero que los textbox que contiene me jale lo que anteriormente estuvo selecionado en el datagrid1
nota: te doy un alcance
los textbox estan enlazados con la base de datos y ademas los textbox tienen tienen nombre: textcliente, index de 0 a 11 respectivamente
ESTE ES EL CODIGO DE FRMCONSULTACLIENTE
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.index
Case 3:
FrmProveedorCliente.Show
DataZaga.rsCmdClientes.AddNew
Case 4:
FrmProveedorCliente.Show
End Select
End Sub
AQUI ESTA EL CODIGO DE FRMPROVEEDORCLIENTE
Private Sub CmdCancelar_Click()
On Error GoTo NOCANCELA
Dim RESP As Byte
RESP = MsgBox("DESEA CANCELAR LOS CAMBIOS", 32 + 4, "CANCELAR")
If RESP = 6 Then
DataZaga.rsCmdClientes.CancelUpdate
DataZaga.rsCmdClientes.MoveNext
DataZaga.rsCmdClientes.MovePrevious
Unload Me
End If
NOCANCELA:
If Err <> 0 Then
MsgBox Err.Description
End If
End Sub
Private Sub CmdGuardar_Click()
On Error GoTo nograba
Dim RESP As Byte
RESP = MsgBox("DESEA GUARDAR", 32 + 4, "GUARDAR")
If RESP = 6 Then
DataZaga.rsCmdClientes.Update
Call DESACTIVAR
End If
nograba:
If Err <> 0 Then
MsgBox Err.Description
DataZaga.rsCmdClientes.CancelUpdate
End If
Unload Me
'FrmConsultaClientes.DataGrid1.Refresh
End Sub
Private Sub ACTIVAR()
For i = txtcliente.LBound To txtcliente.UBound
txtcliente(i).Enabled = True
Next i
End Sub
Private Sub Form_Load()
FrmProveedorCliente.Top = 0
FrmProveedorCliente.Width = 8250
FrmProveedorCliente.Left = (MDIZaga.Width - FrmProveedorCliente.Width) / 2
FrmProveedorCliente.Height = MDIZaga.ScaleHeight
Call ACTIVAR
End Sub
Private Sub txtcliente_gotfocus(index As Integer)
txtcliente(index).BackColor = vbYellow
End Sub
Private Sub txtcliente_lostfocus(index As Integer)
txtcliente(index).BackColor = vbWhite
End Sub