ComboBox - Relecionamentos tablas

15/01/2007 - 18:03 por POWER Informática - S do Livramento - RS | Informe spam
"Disculpem el portuñol"

Estoi a fazer lo seguinte:

en el Evento Load del form coloco el codigo abajo:



Codigo
Private Sub frmProdutos_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

Me.daProdutos.Fill(Ds, "tblProdutos")
Me.daGrupoProdutos.Fill(Ds, "tblGrupoProdutos")


Ds.Relations.Add("GrupoProdutosXProdutos", _
Ds.Tables("tblGrupoProdutos").Columns("GrupoID"), _
Ds.Tables("tblProdutos").Columns("GrupoID"))


Me.cboGrupo.DataSource = Ds
Me.cboGrupo.DisplayMember = "tblGrupoProdutos.grupo"
'Me.cboGrupo.ValueMember = "GrupoID"

end sub
-Fin Codigo -

El Combo es preenchido normalmente, mas al navegar por los registros el
Combo permanece siempre en el 1º item del combo.

Me parece que el relacionamiento no esta a funcionar.
o me falta algo ?

El codigo comentado e testado e no me logro nada, permanesco com
toda la ComboBox preenchida com los datos certos pero no me cambia
automaticamente al navegar por los registros de productos siempre
me mostra el grupo GENERAL que es el 1º de la lista.

Atenciosamente;



Carlos Alberto Nunes Susviela
== P O W E R I n f o r m a t i c a

Rua Joao Manoel, 912 Centro
CEP: 97572-150 SantŽAna do Livramento - RS

(55) 3242-5427 Celular: 9994-8782
http://www.PowerInformatica.com.br
 

Leer las respuestas

#1 POWER Informática - S do Livramento - RS
16/01/2007 - 16:12 | Informe spam
1) Em form frmProdutos, arrastei 2 Objetos OLEDBDATAADAPTER (daProdutos,
daGrupoProdutos), e automaticamente una conecion, CNN, depoes e criado
un objeto DS com os dos DA.

2) En "Data Sources" Arrastei los campos de la tabla "productos" para
el form, e una "Binding Navigator" fue criada, ainda en DataSource
mudei el tipo campo GrupoID de la tabla Productos para ComboBOX "cboGrupo".



3) En el Evento Load del form coloquei lo seguinte codigo:

Private Sub frmProdutos_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

Me.daProdutos.Fill(Ds, "tblProdutos")

Me.daGrupoProdutos.Fill(Ds, "tblGrupoProdutos")

Ds.Relations.Add("GrupoProdutosXProdutos", _

Ds.Tables("tblGrupoProdutos").Columns("GrupoID"), _

Ds.Tables("tblProdutos").Columns("GrupoID"))

Me.cboGrupo.DataSource = Ds

Me.cboGrupo.DisplayMember = "tblGrupoProdutos.grupo"

Me.cboGrupo.ValueMember = "tblProdutos.GrupoProdutosXProdutos.GrupoID"



End Sub

Solo isso ...

Mas no me esta respondiendo como lo esperado, si el relacionamiento esta
correcto, no deveria trocar el item del comboBox automaticamente ?



Carlos Susviela
-



POWER Informática - S do Livramento - RS escreveu:
"Disculpem el portuñol"

Estoi a fazer lo seguinte:

en el Evento Load del form coloco el codigo abajo:



Codigo
Private Sub frmProdutos_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

Me.daProdutos.Fill(Ds, "tblProdutos")
Me.daGrupoProdutos.Fill(Ds, "tblGrupoProdutos")


Ds.Relations.Add("GrupoProdutosXProdutos", _
Ds.Tables("tblGrupoProdutos").Columns("GrupoID"), _
Ds.Tables("tblProdutos").Columns("GrupoID"))


Me.cboGrupo.DataSource = Ds
Me.cboGrupo.DisplayMember = "tblGrupoProdutos.grupo"
'Me.cboGrupo.ValueMember = "GrupoID"

end sub
-Fin Codigo -

El Combo es preenchido normalmente, mas al navegar por los registros el
Combo permanece siempre en el 1º item del combo.

Me parece que el relacionamiento no esta a funcionar.
o me falta algo ?

El codigo comentado e testado e no me logro nada, permanesco com
toda la ComboBox preenchida com los datos certos pero no me cambia
automaticamente al navegar por los registros de productos siempre
me mostra el grupo GENERAL que es el 1º de la lista.

Atenciosamente;







Carlos Alberto Nunes Susviela
== P O W E R I n f o r m a t i c a

Rua Joao Manoel, 912 Centro
CEP: 97572-150 SantŽAna do Livramento - RS

(55) 3242-5427 Celular: 9994-8782
http://www.PowerInformatica.com.br

Preguntas similares