Os pongo en principio Unos Pantallazos de lo que estoy haciendo para que os hagais una idea más clara de lo que pretendo hacer.
En esta imagen cuando se selecciona el cliente 111 en el ColumnView se rellenan los datos del proveedor automáticamente, hasta aqui todo bien, Sigamos, Si se pulsa en el boton Ver facturas pendientes aparece la siguiente pantalla.
Hasta aqui todo perfecto, el problema es que cuando vuelvo a la primera pantalla para seleccinar otro proveedor me sale este error.
Os pongo tambien el código del procedimiento para que le echeis un vistazo.
Public Sub ProveedoresView_Click()
Dim i As Integer
Dim Deuda As Integer
EditaCampos(False)
CamposVacios()
BtnBorrarProveedor.Enabled = True
BtnCambiaProveedor.Enabled = True
BtnAceptar.Enabled = False
VerFacPendientes.Enabled = True
ElCodigo = ProveedoresView[ProveedoresView.Current.Key][0]
Conecta.Conectar()
Conecta.Hres = Conecta.Hcon.Exec("Select * from Proveedores where Codigo ='" & ElCodigo & "'")
ProveedorCodigo.Text = ElCodigo
ProveedorNombre.Text = Conecta.Hres!Nombre
ProveedorCP.Text = Conecta.Hres!CodigoPostal
ProveedorDireccion.Text = Conecta.Hres!Direccion
ProveedorEMail.Text = Conecta.Hres!Mail
ProveedorFax.Text = Conecta.Hres!Fax
ProveedorLocalidad.Text = Conecta.Hres!Poblacion
ProveedorNIF.Text = Conecta.Hres!Nif
ProveedorProvincia.Text = Conecta.Hres!Provincia
ProveedorTelefono.Text = Conecta.Hres!Telefono
ProveedorWeb.Text = Conecta.Hres!Web
CmbFormaDePago.Text = Conecta.Hres!FormaDePago
TxtCCC.Text = Conecta.Hres!CCC
Conecta.Hres = Conecta.Hcon.Exec("Select * from FacturasPorProveedor where Proveedor ='" & ElCodigo & "' and EstadoDeLaFactura = 'PEN'")
If Conecta.Hres.Count > 0 Then
For i = 0 To Conecta.Hres.Count - 1
Deuda = Conecta.Hres!Cantidad + Deuda
VerFacturasaPendientes.Add(i, Conecta.Hres!NumeroDeFactura)
VerFacturasaPendientes[i][1] = Conecta.Hres!Cantidad
VerFacturasaPendientes[i][2] = Conecta.Hres!FechaEmisionFactura
Conecta.Hres.MoveNext
Next
Label18.Text = Conecta.Hres.Count & " Facturas Pendientes Total De La Deuda"
DeudaAProveedor.Text = Deuda & " €"
Endif
Conecta.Hcon.Close
End
Le estoy dando vueltas al código y no consigo solucionarlo