Caixas de combinação em cascata
Boa tarde. Tenho um sistema de gerenciamento de ordens de serviço (Controle de OS). Nele são cadastradas as OS (projetos mecânicos) e cada um é dado um projetista (ou vários) que executará o projeto.
As OS possuem informações únicas como os itens e sub-itens ou, para ficar mais claro, atividades para cada projeto que cada projetista seleciona depois no apontamento de horas. Os sub-itens seriam informações relacionadas aos itens (e não a OS).
Ex:
OS | Item | Sub-item
1002-12 | Oficialização | Estudo
Desenho para Sourcing
Execução
Outro sistema, o Apontamento de Horas, puxa pela rede os dados das OS, itens e sub-itens e o projetista lança suas horas.
Quando ele escolhe a OS na primeira caixa de combinação, a segunda caixa exibe os itens relacionados desta OS e na terceira caixa aparecem os sub-itens relacionados ao item.
A parte da filtragem funcionou mas o formulário ficou pesado para abrir e os dados já inseridos ficaram sumindo e aparecendo.
Seguem os códigos que usei. Eles fizeram com que as caixas ficassem em branco até que fossem clicadas e o usuário não visualizaria os dados inseridos das OS.
Na caixa de combinação das OS (cboNumOS) no evento "ao receber foco":
Private Sub cbNumOS_GotFocus()
' Limpa a combo cboItens toda
' vez que cbNumOS recebe o foco.
cboItens = Null
End Sub
Na caixa de combinação dos Itens (cboItens), no evento "ao receber foco"
Private Sub cboItens_GotFocus()
' Refaz a consulta origem dos
' registros sempre que receber o foco.
cboItens.Requery
End Sub
Na caixa de combinação dos Sub-itens (cboSubItens), no evento "ao receber foco".
Private Sub cboSubItens_GotFocus()
' Refaz a consulta origem dos
' registros sempre que receber o foco.
cboSubItens.Requery
End Sub
Se alguém souber onde está o erro será muito bem vindo.
![Rolling Eyes](https://2img.net/i/fa/i/smiles/icon_rolleyes.gif)
Boa tarde. Tenho um sistema de gerenciamento de ordens de serviço (Controle de OS). Nele são cadastradas as OS (projetos mecânicos) e cada um é dado um projetista (ou vários) que executará o projeto.
As OS possuem informações únicas como os itens e sub-itens ou, para ficar mais claro, atividades para cada projeto que cada projetista seleciona depois no apontamento de horas. Os sub-itens seriam informações relacionadas aos itens (e não a OS).
Ex:
OS | Item | Sub-item
1002-12 | Oficialização | Estudo
Desenho para Sourcing
Execução
Outro sistema, o Apontamento de Horas, puxa pela rede os dados das OS, itens e sub-itens e o projetista lança suas horas.
Quando ele escolhe a OS na primeira caixa de combinação, a segunda caixa exibe os itens relacionados desta OS e na terceira caixa aparecem os sub-itens relacionados ao item.
A parte da filtragem funcionou mas o formulário ficou pesado para abrir e os dados já inseridos ficaram sumindo e aparecendo.
Seguem os códigos que usei. Eles fizeram com que as caixas ficassem em branco até que fossem clicadas e o usuário não visualizaria os dados inseridos das OS.
Na caixa de combinação das OS (cboNumOS) no evento "ao receber foco":
Private Sub cbNumOS_GotFocus()
' Limpa a combo cboItens toda
' vez que cbNumOS recebe o foco.
cboItens = Null
End Sub
Na caixa de combinação dos Itens (cboItens), no evento "ao receber foco"
Private Sub cboItens_GotFocus()
' Refaz a consulta origem dos
' registros sempre que receber o foco.
cboItens.Requery
End Sub
Na caixa de combinação dos Sub-itens (cboSubItens), no evento "ao receber foco".
Private Sub cboSubItens_GotFocus()
' Refaz a consulta origem dos
' registros sempre que receber o foco.
cboSubItens.Requery
End Sub
Se alguém souber onde está o erro será muito bem vindo.
![Rolling Eyes](https://2img.net/i/fa/i/smiles/icon_rolleyes.gif)
Última edição por julianovv em 6/6/2012, 15:49, editado 2 vez(es)