Pessoal, estou aqui  estudando e peguei um exemplo q estava tentando colocar no meu sisteminha,  faço as alterações, aqui está ele o código funcionando, mas eu não entendo a parte em NEGRITO, mas diretamente onde eu coloquei em NEGRITO, alguém por favor poderia me explicar o q acontece nesse trecho em negrito.

If Not recordset1.BOF Then
        trVw.Nodes.Clear
       
            While Not recordset1.EOF
                i = 0: j = 0
                Set Parent = trVw.Nodes.Add(, , , recordset1![Genero], IIf(recordset1![Genero] = "Masculino", 1, 2), IIf(recordset1![Genero] = "Masculino", 1, 2))
                Parent.Expanded = True
                recordset2.MoveMin
                While Not recordset2.EOF
                If recordset1![Genero] = recordset2![Genero] Then
                    Set Child = trVw.Nodes.Add(Parent.Index, tvwChild, "K" + Str(recordset2![ID]), "[" & IIf(recordset2![Sobrenome] = vbNull, recordset2![nome] & " " & recordset2![Sobrenome], recordset2![nome] & " " & recordset2![Sobrenome] & " " & recordset2![Apelido]) & "]  -  [" & Format(recordset2![Nascimento], "Ddd dd Mmm,yyyy") & "]  -  [" & recordset2![Telefone] & "]", IIf(recordset2![Genero] = "Masculino", 1, 2), IIf(recordset2![Genero] = "Masculino", 1, 2))
                    If recordset1![Genero] = "Masculino" Then i = i + 1 Else j = j + 1
                End If
                
                 recordset2.MoveNext
                Wend
                 If recordset1![Genero] = "Masculino" Then Parent.Text = Parent.Text & "  [" & Trim(Str(i)) & "]" Else Parent.Text = Parent.Text & "  [" & Trim(Str(j)) & "]"
                recordset1.MoveNext
            Wend
        End If

Bom... neste trecho vc está instanciando o objeto Child q deve ser um Node.

 

Vc está dando um valor pra ele de um Nó da árvore (treeviewm) trVw.

 

Dentro vc está passando os parâmetros: index do nó pai no caso, tipo (se é filho como no código q vc passou: tvwChild), depois vc passa a chave ("K" + Str(recordset2![ID])) q é uma string representando este nó e depois o texto e pelo q vejo é um baita string...

 

O IIF é uma função, ou seja, retorna valor, e é semelhante ao IF e funciona assim:

 

Nome = IIF(op1 = true,"Joao","Maria")

 

No exemplo acima se op1 for verdadeira retornará Joao e a variável Nome será igual a "Joao" senão será igual a "Maria"

 

entendeu?

 

qq dúvida postae

 

t+

Cara essa string para mim seria menor, pq por exemplo não estou trabalhando com o campo sobrenome, mas eu fiz aqui deu errado, como ficaria se estivesse q tirar o sobrenome, substituir Nascimento = Data_Nasc(isso tem q ser o nome da tabela né), e o Gênero tem q ser Sexo, eu fiz e deu errado, olha o meu exemplo:

 

 

onde q eu errei?

obrigado

hummm

olha esta linha:

 

 

IIF faz uma comparação lógica... no caso ae não está comparando nada...vc só está passando uma string e não está fazendo consistências... tenta tirar então o IIF....