Default value of a textbox equal to a field

Hi,
A couple of ways to do it.
1)  use 'sqlexecute' and select the value from the table;  as there can only ever be one row in your table, there is no need for a 'where' clause.
2)  copy the value from the tablegrid cell (as there is only one row and one column, you can hard-code the cell location ([0,0]).  Perhaps this is a slightly better option as it avoids making an extra call to the database.
Regards,
Derek.

Hi Reteinformatica,
I downloaded your project but there is just a form - there is no script with it so I can't see the problem with clicking twice or the result not being saved.  Nor is there a tablegrid.
Derek.

Hi,
Yes, the instruction is in the script.
Remember that in MVD, the first column in the tablegrid starts at Column 0 and the first row in the tablegrid starts at Row 0 (this is what [0,0] in the line of script...... form1.tablegrid1.cells[0,0] refers to).  It is the co-ordinates of the cell value that we want to use.
So, in the script, the line 
if form1.tablegrid1.rowcount > 0 then form1.edit2.text := form1.tablegrid1.cells[0,0] else form1.edit2.Text:= ' ';
takes the contents of the cell in Column 0 and Row 0 in the tablegrid and copies the contents to form1.edit2.text.
Hope that's clear.
Derek.

Hi,
Just add this line to the script
  form1.tablegrid1.selectedrow := 0;
This places the cursor on the first row in the (hidden) tablegrid and tells the program which record ID to use (you can make the tablegrid visible to see how it has highlighted the row and then make it invisible again).
Derek.

What's wrong with this education?

if Start.bNuovodominio.visible:= True then Start.Label18.caption := 'Qui va il nome del dominio, modificalo   --->' ;

It says ' THEN execpted at 12:33'

Thanks Ivan,
so I don't get errors but the instruction doesn't work or the caption of laberl doesn't become "Qui va il nome del dominio, modificalo   --->" but it's empty.
Below is the total code of the script:

procedure Start_OnShow (Sender: string; Action: string);
begin
   if Start.grDominio.rowcount <> 1 then Start.Label18.caption := 'Qui va il nome del dominio, modificalo   --->' ;

end;

procedure Start_grDominio_OnChange (Sender: string);
begin
  if Start.bNuovodominio.visible = True then Start.Label18.caption := 'Qui va il nome del dominio, modificalo   --->' ;
  if Start.grDominio.RowCount = 1 then Start.bNuovodominio.visible := False else Start.bNuovodominio.visible := true;
  Start.grDominio.selectedrow := 0;
  Start.Label18.caption:= sqlexecute('select NomeDominio from Dominio');
  Start.Label18.font.size:= 10
end;

begin
end.

EDIT:
I put the istruction on the bottom and so it seems to work

procedure Start_grDominio_OnChange (Sender: string);
begin
  if Start.grDominio.RowCount = 1 then Start.bNuovodominio.visible := False else Start.bNuovodominio.visible := true;
  Start.grDominio.selectedrow := 0;
  Start.Label18.caption:= sqlexecute('select NomeDominio from Dominio');
  Start.Label18.font.size:= 10
   if Start.bNuovodominio.visible = True then Start.Label18.caption := 'Qui va il nome del dominio, modificalo   --->' ;
end;

begin
end.