Shrek
|
SÃO BERNARDO DO CAMPO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 15/01/2006 14:12 hs
To fazendo um prog de cadastro de clientes, cada cliente com seus carros... qndo eu digitar o cod do cliente no input, quero q ele busque no Treeview o cliente ref ao cod(ou carro, vo faze 1 rotina e 1 tela pra busca de cada um) soh q nao consigo faze ele seleciona o item, ele ateh abre o nó, mais nao da selected, alguem pode me ajuda??????
Private Sub procurar_Change()
On Error GoTo DeuErro
Set nodx = TreeView1.Nodes.Item(procurar.Text)
nodx.Expanded = True
nodx.Selected = True
DeuErro:
If Err.Number = "35640" Then
Exit Sub
End If
End Sub
esse err eh pra qndo nao digita o cod certo...
Grato desde ja...
Shrek, Just Xek.
|
|
|
|
|
|
Geronimo
|
JOINVILLE
SC - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 15/01/2006 14:47 hs
Seria:
ID - Chave Primaria (Autonumeração) com o identificador de cada registro
IDPai - ID do registro pai deste na árvore. 0 para itens na raíz
Info - Informação a ser mostrada na árvore
Assim a consulta seria:
SELECT * FROM Tabela ORDER BY IDPai
Para inserir no treeview basta rodar um loop pelos registros e dar o Add. No parâmetro Key vc coloca "K" & RS("ID") e no parâmetro Relative vc coloca "K" & RS("IDPai") e em Relationship sempre tvwChild. Ex.:
Do Until RS.eof
TreeView1.Nodes.Add "K" & RS("IDPai"), tvwChild, "K" & RS("ID"), RS("Info")
RS.MoveNext
Loop
Onde RS é um ADODB.Recordset contendo o resultado da consulta mostrada acima. mAIS EM :
"O pior inimigo que você poderá encontrar será sempre você mesmo."
|
|
|
|
Shrek
|
SÃO BERNARDO DO CAMPO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 17/01/2006 00:01 hs
hmm... nao querendo parece burro, mais jame demonstrando 1...
N intendi absolutamente nada...
nao sei se vc conseguiu sanar meu prob, mas se conseguiu, criou otro, de compreensao =p
tem como ser um poco mais "auto-explicativo" o exempl?
malz por se um tanto qnto, leigo
|
|
|
|
|
