Tengo escrito el siguiente código con los textBox enlazados con el DataBindings pero al tratar de moverme me da un error "No se pueden crear una lista secundaria para el campo Familias". Podria alguien indicarme el fallo que tengo.
Module Conexion
Public cn As New OleDb.OleDbConnection
Public BD As String = "C:\PozoBarria\PozoBarria\PozoBarria\PozoBarria.ac cdb"
Public Sub Open()
Dim sCnn As String
sCnn = String.Format("Provider=Microsoft.ACE.OLEDB.12.0;D ata Source=" & BD)
Try
cn = New OleDb.OleDbConnection(sCnn)
cn.Open()
Catch ex As Exception
MsgBox("No ha conectado con la BD " & BD, vbExclamation, "Aviso")
End Try
End Sub
End Module
Imports System.Data.OleDb
Public Class ClaseFamilias
Public adaptador As OleDb.OleDbDataAdapter
Public miTabla As New DataTable
Public constructor As OleDb.OleDbCommandBuilder
Public ds_Familia As New DataSet
End Class
Public Class frmCargarFamilia
Dim objetoFamilia As New ClaseFamilias
Private Sub frmCargarFamilia_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: esta línea de código carga datos en la tabla 'PozoBarriaDataSet.Familias' Puede moverla o quitarla según sea necesario.
Me.FamiliasTableAdapter.Fill(Me.PozoBarriaDataSet. Familias)
Open()
objetoFamilia.adaptador = New OleDb.OleDbDataAdapter("Select * FROM Familias", cn)
objetoFamilia.ds_Familia.Clear()
objetoFamilia.adaptador.Fill(objetoFamilia.ds_Fami lia)
End Sub
Private Sub btnSiguiente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSiguiente.Click
Try
Me.BindingContext(objetoFamilia.ds_Familia, "Familias").Position += 1
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class
Un saludo y gracias