实现功能：通过功能按钮，实现主表中某个字段赋值。

实     例：将主表的‘打印’字段赋值“√”

脚本语句：
begin
DataMdl_Tabledoc.First
while not DataMdl_Tabledoc.eof do
begin
if not ((DataMdl_Tabledoc.state=dsedit) or (DataMdl_Tabledoc.state=dsinsert)) then DataMdl_Tabledoc.edit;
DataMdl_Tabledoc.Fieldbyname(’打印’).asstring:=’√’;
DataMdl_Tabledoc.post;
DataMdl_Tabledoc.next;
end;
end.

注释1：定位语句 

第一条：DataMdl_Tabledoc.First 

下一条:  DataMdl_Tabledoc.next 

最后一条：DataMdl_Tabledoc.eof

注释2：如果记录不是最后一条 执行下面的语句

while not DataMdl_Tabledoc.eof do
begin

执行语句

DataMdl_Tabledoc.next;
end;

注释3：如果主表不是编译或者插入状态，把主表置为编译状态。

if not ((DataMdl_Tabledoc.state=dsedit) or DataMdl_Tabledoc.state=dsinsert)then   DataMdl_Tabledoc.edit；

注释4：主表保存  

DataMdl_Tabledoc.post;

注释5：赋值   

DataMdl_Tabledoc.Fieldbyname(’打印’).asstring:=’√’;