Cita:
Iniciado por chery 
conexion(obj)
Dim comm As New MySql.Data.MySqlClient.MySqlCommand("select nom_planta,clave_planta,nom_destino,nom_cliente from cat_planta,cat_destino,cat_cliente where cat_planta.clave_destino=cat_destino.clave_destino and cat_planta.clave_cliente=cat_cliente.clave_cliente ")
obj.SELECT_COMMAND = comm
CmbclvE_catpla.DisplayMember = "clave_planta"
CmbclvE_catpla.DataSource = obj.SelectFields()
Y no necesitas el ValueMember?
Cita:
Iniciado por chery Dim comm As New MySql.Data.MySqlClient.MySqlCommand("UPDATE cat_planta set nom_planta='" + Me.Txtnom_catpla.Text + "',clave_cliente=(select clave_cliente from cat_cliente where nom_cliente='" + Cmbclient_catpla.SelectedValue.ToString + "'), clave_destino=(select clave_destino from cat_destino where nom_destino='" + Cmbdest_catpla.SelectedValue.ToString + "') where clave_planta='" + CmbclvM_catpla.Text + "'")
obj.UPDATE_COMMAND = comm
If obj.UpdateFields() Then
'Me.CmbclvM_catpla.Refresh()
MsgBox("la planta se modifico correctamente.", vbInformation, "")
Txtnom_catpla.Text = ""
Txtcli_regpla.Text = ""
Txtdest_catpla.Text = ""
CmbclvM_catpla.Text = ""
Cmbclient_catpla.Text = ""
Cmbdest_catpla.Text = ""
Realiza un paso a paso a este code y verifica que
Código:
where nom_destino='" + Cmbdest_catpla.SelectedValue.ToString + "') where clave_planta='" + CmbclvM_catpla.Text + "'")
Cmbdest_catpla.SelectedValue.ToString Y CmbclvM_catpla.Text tengan valores que hagan cumplir la condicion, porque de lo contrario cuando hace el update y no encuentre valores que coincidan no actulizara los datos.
Pregunta:
¿Porque tienes una subconsulta dentro del update?, el campo clave_cliente no lo tienes en el formulario? en algun combo, textbox, etc, etc
Saludos
