General information
Category:
Forms & Form designer
Thisform.strAliasLote = '_' + Sys(3)
Select * From tab_ctasxpag_002 Where tab_ctasxpag_002.statustran = ' ' Into Cursor (Thisform.strAliasLote) && This is my table
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 (variable to mask number)
Endif
Endfor
Endwith
with this code I resolved my problem, when my grid was refreshed with SQL, it produced the same problem to you.
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only