Information générale
Catégorie:
Gestionnaire d'écran & Écrans
You can adapt your code with this:
Thisform.strAliasLote = '_' + Sys(3)
Select * From tab_ctasxpag_002 Where tab_ctasxpag_002.statustran = ' ' Into Cursor (Thisform.strAliasLote)
With Thisform.grdTab_ctasxpag_002 as Grid
.Visible = .T.
.RecordSource = (Thisform.strAliasLote)
.RecordSourceType = 1
.DeleteMark = .F.
.ReadOnly = .T.
.ColumnCount = Fcount((Thisform.strAliasLote))
gnFieldcount = Afields(gaMyArray,(Thisform.strAliasLote)) && Create array.
For n = 1 To .ColumnCount
strCol = 'Column'+Alltrim(Str(n))
.&strCol..ControlSource = Field(n)
.&strCol..Header1.Caption = Alltrim(Proper(Field(n)))
.&strCol..Width = Fsize(Field(n))+75
If gaMyArray(n,2) = 'N' And (gaMyArray(n,4) > 0)
.&strCol..InputMask = tcmask_numeros
Endif
Endfor
Endwith
it's work fine to me.
I expect to work to you.
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement