Pinho
|
PORTO
22 - PORTUGAL
|
|
ENUNCIADA !
|
|
|
Postada em 04/06/2006 20:07 hs
Preciso de ajuda, porque tenho duas tabelas numa base de dados e na primeira introduzo dados, mas depois, no visual basic preciso de escolher alguns deles para a segunda tabela, mas de uma forma fácil e practica, ou seja, Id Nome Apelido Idade Data ----------------------------------------- x 1 Filipe Pinho 18 13-02-2006 2 Antonio Pereira 25 22-04-2006 x 3 Joao Teixeira 47 01-06-2006 Ou seja, quero passar o 1 e o 3 para a segunda tabela mas por exemplo com uma check box nos sitios onde tenho um x (acima), e selecionava os que queria e quando carregasse num command button ele enviava para a segunda tabela. Se alguém me puder ajudar, agradeço, ou então, tou aberto a sugestões melhores, visto ser um pouco novato neste tipo de matéria.
Obrigado, Pinho
|
|
|
|
|
|
|
|
Postada em 04/06/2006 20:20 hs
Vc quer listar todos os registros de sua tabela e mostrar?? Depois vc quer selecionar alguns e transferir para um outra tabela?? É isso? |
|
|
|
Pinho
|
PORTO
22 - PORTUGAL
|
|
|
ENUNCIADA !
|
|
|
Postada em 05/06/2006 12:21 hs
É exactamente isso. Mas queria seleccionar com checkbox.
Obrigado, Pinho
|
|
|
|
|
|
Postada em 05/06/2006 14:13 hs
Vc pode usar um controle chamado listview... é só ir no menu "Project...Components" e adiocionar o Microsoft Windows Common controls 6.0 ... se eu não me engano, é q não tenho vb comigo hehehehe. Nas propriedade do controle vc coloca ele como report e tb seleciona o item checkboxes para cada item ficar com uma checkbox. Bom, para acrescentar cada item na lista vc faz assim: ListView.ListItems.add ,,"item1" e assim por diante... para acrescentar itens a outras colunas vc faz assim: ListView.ListItems.add ,,"item1" 'Adiciona o item Listview.ListItems(ListView.ListItems.count).subitems(1) = "SubItem1" 'Adiciona o item a coluna 1 Listview.ListItems(ListView.ListItems.count).subitems(2) = "SubItem2" 'Adiciona o item a coluna 2 bom, para vc saber qual item está com check então vc tem q percorrer a lista for i = 1 to ListView.ListItems.count if ListView.ListItems(i).checked then 'Este item está com check endif next ae vc transfere para outra lista... qq dúvida é só postar t+ |
|
|
|
Pinho
|
PORTO
22 - PORTUGAL
|
|
|
ENUNCIADA !
|
|
|
Postada em 06/06/2006 09:15 hs
É mesmo isto que eu preciso, mas como report não consigo fazer aparecer nada, tenho que por como lista, e é assim que eu quero, só que os items aparece-me o inicio do item e depois aparece reticencias (...) eu faço, Do While Not .Recordset.EOF = True Linha = " " & .Recordset!Expedidor Linha = Linha & Space(41 - Len(.Recordset!Expedidor)) & .Recordset!Quantidade Linha = Linha & Space(11 - Len(.Recordset!Quantidade)) & .Recordset!Qualidade
Linha = Linha & Space(11 - Len(.Recordset!Qualidade)) & .Recordset!m3
ListView1.ListItems.Add , , Linha .Recordset.MoveNext Loop mas a solução do meu problema encontra-se perto, só me faltam alguns ajustes, e há outro problema, quando carrego em cima de um item e se carregar no backspace, apaga-me o item todo, como faço para bloquear isso?
Obrigado, Pinho
|
|
|
|
|
|
Postada em 06/06/2006 09:47 hs
é q do jeito q vc faz não está dividindo por colunas... fica uma coisa só... e fica com reticências por causa do tamanho da coluna acredito... Olha, se é isso q vc quer td bem, mas eu faria de outro jeito. Colocaria como tipo report,depois habilitaria a opção de cheboxes. Vc tem 4 itens o q daria 4 colunas então eu colocaria 4 colunas e depois acrescentaria os itens deste modo: with ADOCONTROL Do While Not .Recordset.EOF = True ListView1.ListItems.Add , , .Recordset!Expedidor ListView1.ListItems(ListView1.ListItems.Count).SubItems(1) = .Recordset!Quantidade ListView1.ListItems(ListView1.ListItems.Count).SubItems(2) = .Recordset!Qualidade ListView1.ListItems(ListView1.ListItems.Count).SubItems(3) = .Recordset!m3
.Recordset.MoveNext Loop END with OK?? Mas como vc quer colocar como lista td bem... só verifique o tamanho da coluna pois vc está concatenando o item... e como assim qdo vc carrega em cima de um item?? O q vc faz para carregar no backspace?? Não entendi... |
|
|
|
|
