Modificar Registros desde V.B Net
Publicado por Federico (1 intervención) el 03/06/2010 15:56:35
Hola amigos del foro, en un formulario detalle tengo el sig. codigo
Me.OperadoresBindingSource.Filter = "Codigo_oper = " & Me.TB_Codigo.Text
'Esto es Para ubicar el registro
If Me.L_Estado.Text = "A" Then
If MsgBox("Cliente Habilitado." + Chr(10) + "¿Confirma Inhabilitación?"MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Exclamation, "Clientes") = MsgBoxResult.Yes Then
Me.L_Estado.Text = "D"
Me.Validate
Try
Me.OperadoresBindingSource.EndEdit()
Me.OperadoresTableAdapter.Update(Me.LaLolaDataSet.Operadores)
Catch ex As Exception
MsgBox(ex.Message)
MsgBox("update failed")
End Try
End If
Else
If Me.L_Estado.Text = "D" Then
If MsgBox("Cliente Inhabilitado." + Chr(10) + "¿Confirma Habilitación?", MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Exclamation, "Clientes") = MsgBoxResult.Yes Then
Me.L_Estado.Text = "A" Then
Me.Validate()
Try
Me.OperadoresBindingSource.EndEdit()
Me.OperadoresTableAdapter.Update(Me.LaLolaDataSet.Operadores)
Catch ex As Exception
MsgBox(ex.Message)
MsgBox("update failed")
End Try
El problema es que no me guarda las modificaciones. Alguien me podria decir cual seria la linea de codigo que tengo que colocar antes del update.
Muchas gracias
End If
End If
Me.OperadoresBindingSource.Filter = "Codigo_oper = " & Me.TB_Codigo.Text
'Esto es Para ubicar el registro
If Me.L_Estado.Text = "A" Then
If MsgBox("Cliente Habilitado." + Chr(10) + "¿Confirma Inhabilitación?"MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Exclamation, "Clientes") = MsgBoxResult.Yes Then
Me.L_Estado.Text = "D"
Me.Validate
Try
Me.OperadoresBindingSource.EndEdit()
Me.OperadoresTableAdapter.Update(Me.LaLolaDataSet.Operadores)
Catch ex As Exception
MsgBox(ex.Message)
MsgBox("update failed")
End Try
End If
Else
If Me.L_Estado.Text = "D" Then
If MsgBox("Cliente Inhabilitado." + Chr(10) + "¿Confirma Habilitación?", MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Exclamation, "Clientes") = MsgBoxResult.Yes Then
Me.L_Estado.Text = "A" Then
Me.Validate()
Try
Me.OperadoresBindingSource.EndEdit()
Me.OperadoresTableAdapter.Update(Me.LaLolaDataSet.Operadores)
Catch ex As Exception
MsgBox(ex.Message)
MsgBox("update failed")
End Try
El problema es que no me guarda las modificaciones. Alguien me podria decir cual seria la linea de codigo que tengo que colocar antes del update.
Muchas gracias
End If
End If
Valora esta pregunta


0