Adicionando uma coluna nova em uma HashTable existente
Enviado: 01 Mai 2020 13:40
Precisei disso essa semana, uma HT que é o retultset do banco e precisava adicionar uma coluna nova nessa HT, usando Hb_HMerge é possível fazer isto, o código abaixo é uma demonstração, para quem usa hashtable segue segue a dica
hTable := {}
FOR I:=1 TO 10
hRecord := Nil
hRecord := {=>}
hRecord["TESTE1"] := I
hRecord["TESTE2"] := STRZERO(I,2)
aAdd( hTable, hRecord )
NEXT
hNewCol := {}
FOR I:=1 TO Len( hTable )
hRecord := {=>}
hRecord["TESTE3"] := .F.
aAdd( hNewCol, hRecord )
NEXT
FOR I:=1 TO Len( hTable )
Hb_HMerge( hTable[i], hNewCol[i] )
NEXT
FOR EACH oElemento IN hTable
? oElemento["TESTE1"], oElemento["TESTE2"], oElemento["TESTE3"]
NEXT