实现功能:通过功能按钮,实现主表中某个字段赋值。
实 例:将主表的‘打印’字段赋值“√”

脚本语句:
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:=’√’;