PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 23 → WX - Exemplo de criar colunas com a leitura da estrutura da Analysis com indirection
WX - Exemplo de criar colunas com a leitura da estrutura da Analysis com indirection
Débuté par BOLLER, 25 juin 2018 18:15 - Aucune réponse
Membre enregistré
2 864 messages
Popularité : +89 (91 votes)
Posté le 25 juin 2018 - 18:15
FiltraUsuarios("")

//AlteraNomeColunasQuery("TABLE_usuario","QRY_Select_All_Usuarios")

//usando a estrutura da query
sColuna is string = pTableNameControl+".COL_Column"
ItemList is string = HListItem( {pQueryName,indFile} , hLstDetail)
CountCampos is int = StringCount(ItemList,CRLF)

//c is int
//
//loop (CountCampos)
// c+=1
//
// //TableInsertColumn /// windev
//
//END


ItemList = Replace(ItemList,CRLF,";")
ItemList = Replace(ItemList,TAB,";")
x is int = 6
y is int = 0
VARTEXT is string
LOOP(CountCampos)
y+= 1
VARTEXT = ExtractString(ItemList,x,";",FromBeginning)
{sColuna+y,indControl}..Caption = VARTEXT
{sColuna+y,indControl}..Visible = True
x+= 6
END


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/