KorpTestComplet
New Contributor
Joined 9 years ago
User Profile
User Widgets
Contributions
Re: How to restore for default values in TableGrids on execution time?
I was able to change the value at runtime. this is my procedure: //Danilo Casassa - 26/10/2017 // rotina para comparar Tables com Grids procedure CompareGridWithTablesGrids(tableGrid, grid : OleVariant); var indexRow, indexCol : integer; valorTable : OleVariant; begin //valida se a descrição está vazia if (vartostr(tableGrid.Description) = '' )then Indicator.PushText('Realizando validação da grid...') else Indicator.PushText(vartostr(tableGrid.Description)); //recebe o mapeamento da grid que esta sendo comparada tableGrid.ObjectName := VarToStr(grid); //percorre as linhas do tableGrid for indexRow := 0 to tableGrid.RowCount -1 do begin //percorre as colunas da tableGrid for indexCol := 0 to tableGrid.ColumnCount -1 do begin //pega o valor da table valorTable := tableGrid.Values[indexRow, indexCol]; //converte a se o valor da tablegrid for uma expressão valorTable := ConvertDateInDataBaseFormat(ValidateExpressionData(valorTable)); //Grid recebe o valor convertido tableGrid.Values[indexRow,indexCol] := valorTable; end; end; //Checa se os registros da Table estão de acordo com os da grid tableGrid.Check; Indicator.PopText(); end; I'm don't get value of the tableGrid as variable, but now I can with this code. Thanks.1.6KViews0likes0CommentsRe: How to restore for default values in TableGrids on execution time?
So, I have a tableGrid that has the column "DATE" and in the line with the information I leave as default "D + 0", for example, at runtime, I do the handling of this expression and add the current date or conform The parameter (D + 0 = today, D + 1 = one more day ...). But, for example, I want you to change that date to the current date, back to D + 0. Again with the value D + 0 and not 2017/03/01. But in the properties of TableGrids I did not find any information to reset to default values. It is possible?1.8KViews0likes2Comments