Hola, aqui nuevamente estoy.
mis estimados la consulta es la siguiente, quiero mostrar en un formulario los datos de 4 tablas relacionadas pero al momento de mostrar los datos me sale el error:
No se puede crear una lista secundaria para el campo clientes.
Estoy realmente desesperado
, este es el codigo: para ver si me pueden ayudar a encontrar el problema Por Favor..
Muy Atentamente.
connectarbd()
Dim cmd As New SqlCommand
Me.txtcodigo.DataBindings.Clear()
Me.txtnombre.DataBindings.Clear()
Me.cboauto.DataBindings.Clear()
Me.txtfecha.DataBindings.Clear()
Me.txthora.DataBindings.Clear()
Me.txthorafinal.DataBindings.Clear()
Me.txtvale.DataBindings.Clear()
Me.txtlugarinicio.DataBindings.Clear()
Me.txtlugarfinal.DataBindings.Clear()
Me.txttelaviso.DataBindings.Clear()
Me.cboservicio.DataBindings.Clear()
Me.cboempresa.DataBindings.Clear()
Me.txtvalor.DataBindings.Clear()
cmd.Connection = conn
cmd.CommandText = "select codigo from pedidos where codigo='" & txtcodigo.Text & "'"
dadap.SelectCommand = cmd
dadap.Fill(dset, "pedidos")
Me.txtnombre.Focus()
Dim boolExiste As Boolean = False
Try
If dset.Tables(0).Rows(0)("codigo").ToString = txtcodigo.Text Then
boolExiste = True
End If
Catch
End Try
If boolExiste Then
Me.txtcodigo.DataBindings.Clear()
Me.txtnombre.DataBindings.Clear()
Me.cboauto.DataBindings.Clear()
Me.txtfecha.DataBindings.Clear()
Me.txthora.DataBindings.Clear()
Me.txthorafinal.DataBindings.Clear()
Me.txtvale.DataBindings.Clear()
Me.txtlugarinicio.DataBindings.Clear()
Me.txtlugarfinal.DataBindings.Clear()
Me.txttelaviso.DataBindings.Clear()
Me.cboservicio.DataBindings.Clear()
Me.cboempresa.DataBindings.Clear()
Me.txtvalor.DataBindings.Clear()
cmd.Connection = conn
cmd.CommandText = "select pedidos.codigo,clientes.nombre,vehiculos.numero,pe didos.fecha,pedidos.hora,pedidos.horafinal,pedidos .vale,pedidos.lugarinicio,pedidos.lugarfinal,pedid os.telefonoaviso,servicios.nombre,clientesconvenio .nombre,pedidos.valor from pedidos,clientesconvenio,servicios,vehiculos,clien tes where pedidos.numeroauto=vehiculos.numero and pedidos.cliente=clientes.numero and pedidos.tiposervicio=servicios.codigo and pedidos.nomempresa=clientesconvenio.numero and pedidos.codigo='" & txtcodigo.Text & "'"
dadap.SelectCommand = cmd
dadap.Fill(dset, "pedidos")
txtcodigo.DataBindings.Add("Text", dset, "pedidos.codigo")
txtnombre.DataBindings.Add("Text", dset, "clientes.nombre")
Aqui esta el error.
cboauto.DataBindings.Add("Text", dset, "vehiculos.numero")
txtfecha.DataBindings.Add("Text", dset, "pedidos.fecha")
txthora.DataBindings.Add("Text", dset, "pedidos.hora")
txthorafinal.DataBindings.Add("Text", dset, "pedidos.horafinal")
txtvale.DataBindings.Add("Text", dset, "pedidos.vale")
txtlugarinicio.DataBindings.Add("Text", dset, "pedidos.lugarinicio")
txtlugarfinal.DataBindings.Add("Text", dset, "pedidos.lugarfinal")
txttelaviso.DataBindings.Add("Text", dset, "pedidos.telefonoaviso")
cboservicio.DataBindings.Add("Text", dset, "servicios.nombre")
cboempresa.DataBindings.Add("Text", dset, "clientesconvenio.nombre")
txtvalor.DataBindings.Add("Text", dset, "pedidos.valor")
Me.txtnombre.Focus()
Else
clsConfigMessageBox.ShowWinMessage("El Codigo no Existe en la Base de Datos", "Error", MessageBoxIcon.Error, MessageBoxButtons.OK)
Me.cboauto.Text = ""
Me.txtcodigo.Text = ""
Me.txtfecha.Text = ""
Me.txthora.Text = ""
Me.txthorafinal.Text = ""
Me.txtlugarfinal.Text = ""
Me.txtlugarinicio.Text = ""
Me.txtnombre.Text = ""
Me.cboservicio.Text = ""
Me.txttelaviso.Text = ""
Me.txtvale.Text = ""
Me.txtvalor.Text = ""
Me.cboempresa.Text = ""
Me.txtcodigo.Focus()
End If
Lo que si estoy seguro es que busca, pero al momento de mostrar los datos me lanza el error.