PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → 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
Iniciado por BOLLER, jun., 25 2018 6:15 PM - Sem resposta
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em junho, 25 2018 - 6:15 PM
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/