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 |