Ver Mensaje Individual
  #14 (permalink)  
Antiguo 23/06/2009, 09:51
ccristian79
 
Fecha de Ingreso: junio-2009
Mensajes: 12
Antigüedad: 14 años, 10 meses
Puntos: 0
Respuesta: consulta sobre un combobox

Cita:
Iniciado por boluart Ver Mensaje
Algun dato es nulo.
asegurate que los items no sean nulos asi:

if not ds.Tables("Clientes").DefaultView.Item("Localidad" ) is dbnull.value then

txtlocalidad.text =ds.Tables("Clientes").DefaultView.Item("Localidad " ).tostring()

end if
gracias por tu respuesta.. ya corregi lo que me dijiste, pero continua dandome error..

Dim da As OleDbDataAdapter
Dim ds As New DataSet
da = New OleDbDataAdapter("Select * From Clientes WHERE Nombre='" & CMBnombre.Text & "'", cn)
da.Fill(ds, " Clientes")
If ds.Tables("Clientes ").DefaultView.Count > 0 Then
If Not ds.Tables("Clientes").DefaultView.Item("Direccion" ) Is DBNull.Value Then
txtdireccion.Text = ds.Tables("Clientes").DefaultView.Item("Direccion" ).ToString
If Not ds.Tables("Clientes").DefaultView.Item("Localidad" ) Is DBNull.Value Then
txtlocalidad.Text = ds.Tables("Clientes").DefaultView.Item("Localidad" ).ToString
If Not ds.Tables("Clientes").DefaultView.Item("Provincia" ) Is DBNull.Value Then
txtprovincia.Text = ds.Tables("Clientes").DefaultView.Item("Provincia" ).ToString
If Not ds.Tables("Clientes").DefaultView.Item("Pais") Is DBNull.Value Then
txtpais.Text = ds.Tables("Clientes").DefaultView.Item("Pais").ToS tring
If Not ds.Tables("Clientes").DefaultView.Item("Telefono") Is DBNull.Value Then
txttelefono.Text = ds.Tables("Clientes").DefaultView.Item("Telefono") .ToString
If Not ds.Tables("Clientes").DefaultView.Item("Cuit") Is DBNull.Value Then
txtcuit.Text = ds.Tables("Clientes").DefaultView.Item("Cuit").ToS tring
If Not ds.Tables("Clientes").DefaultView.Item("Contacto") Is DBNull.Value Then
txtcontacto.Text = ds.Tables("Clientes").DefaultView.Item("Contacto") .ToString
If Not ds.Tables("Clientes").DefaultView.Item("Observacio nes") Is DBNull.Value Then
txtobservaciones.Text = ds.Tables("Clientes").DefaultView.Item("Observacio nes").ToString
End If
End If
End If
End If
End If
End If
End If
End If
End If

End Sub


esta es la linea que me deja marcada..
If ds.Tables("Clientes ").DefaultView.Count > 0 Then

tengo un campo ID que es incremental, sera eso lo que me esta causando el problema ???
mm no.. el campo id no es el probelma tampoco.. probe sacandolo.. tambien quite lo de permitir valores nulos en la db a ver si era algo de eso.. pero tambien me sigue tirando el mismo error... uff me tiene loko sin saber que puede ser =(

Última edición por ccristian79; 23/06/2009 a las 10:46