在修改或插入一个表时，同时修改其他表就出错(100分)

在修改或插入一个表时，同时修改其他表就出错
如： Qxmlb.edit;
ffjxmxg:=Tfjxmxgf.create(application);
if ffjxmxg.showmodal=mrok then
begin
sxmmc:= ffjxmxg.dbedit2.text;
sxmdm:= ffjxmxg.dbedit1.text;
Qxmlb.Post;
{ Qgcjd.close;
Qgcjd.sql.clear;
Qgcjd.sql.add('update fjgcjdb set xiangmmc='''+sxmmc+'''where xiangmmc<>'''' ');
Qgcjd.Execsql;
Qldlb.close;
Qldlb.sql.clear;
Qldlb.sql.add('update fjldlb set xiangmmc='''+sxmmc+''',xiangmdm='''+sxmdm+''' ');
Qldlb.Execsql;
Qfjms.close;
Qfjms.sql.clear;
Qfjms.sql.add('update fjmsb set xiangmmc='''+sxmmc+''',xiangmdm='''+sxmdm+''' ');
Qfjms.Execsql;
Qfjzl.close;
Qfjzl.sql.clear;
Qfjzl.sql.add('update fjzlb set xiangmmc='''+sxmmc+''',xiangmdm='''+sxmdm+''' ');
Qfjzl.Execsql; }
加上{}内的就出错，是怎么回事？

Qgcjd.sql.add('update fjgcjdb set xiangmmc='''+sxmmc+'''where xiangmmc<>'''' ');
改为Qgcjd.sql.add('update fjgcjdb set xiangmmc='''+sxmmc+''' where xiangmmc<>'''' ');

谢谢
不过还有一个情况：
fdcdm.Qczqx.Append;
fdcdm.Qczqx.Fields[3].Asstring:=fqxfz.Combobox1.Text;
fdcdm.Qczqx.Fields[0].Asstring:=fqxfz.Edit1.Text;
fdcdm.Qczqx.Fields[2].Asstring:=fqxfz.Edit2.Text;
fdcdm.Qczqx.Post;
{with fdcdm do
begin
Qjtczqx.Close;
Qjtczqx.sql.Clear;
Qjtczqx.sql.add('select * from czjtqxb where yonghm='''+syonghm+'''');
Qjtczqx.open;
while not Qjtczqx.eof do
begin
Tjtczqx1.append;
Tjtczqx1.Fields[0].Asstring:=fqxfz.Edit1.Text;
Tjtczqx1.Fields[1].Asstring:=Qjtczqx.Fields[1].Asstring;
Tjtczqx1.Fields[2].Asstring:=Qjtczqx.Fields[2].Asstring;
Tjtczqx1.Fields[3].Asstring:=Qjtczqx.Fields[3].Asstring;
Tjtczqx1.post;
Qjtczqx.NEXT;
end;
Qjtczqx.Close;
end;}
加上{}内的就出错

您用F7/F8调试一下程序是很困难的事情么
BTW,除非您的库结构不再更新,否则DataSet.Fields的方式不太OK

接受答案了.