急#xff01;急#xff01;急#xff01;请大家帮忙#xff01;

count]); hwnumb:trim(stringgrid1.Cells[2，nsign])，1]:; stringgrid1.Cells[3。

result:integer; begin pnumb:trim(edit1.Text); pname:trim(edit2.Text); for count:1 to stringgrid1.RowCount-1 do begin khnumb:trim(stringgrid1.Cells[1。

1]:; stringgrid1.Cells[2，1]:; stringgrid1.Cells[4，count]; post; refresh; next; end; end; end;} end; edit1.Clear; edit2.Clear; stringgrid1.RowCount:2; stringgrid1.Cells[0，1]:1; stringgrid1.Cells[1，khnumb， 在窗体上放一个StringGridEdit1.Edit2想把StringGrid中的数据保存到数据库中不能出现重复记录请看下面那段代码看有什么错误 Var pnumb，[]) then begin continue; result:1; n:count; showmessage(本公司与该客户/厂商的这种产品的对照关系已经存在)stringgrid1.Cells[2，n]:; stringgrid1.Cells[4，pname:string; count，n]:; end else begin result:2; end; if result2 then begin with datamodule1.T_hwcontr do begin active:true; for count:1 to stringgrid1.RowCount-1 do begin append; fields[0].AsString:pnumb; fields[1].AsString:pname; fields[2].AsString:stringgrid1.Cells[1，count]); datamodule1.T_hwcontr.Active:true; if datamodule1.T_hwcontr.Locate(ProNumb;SupClie;HuoWNum;NumSign VarArrayOf([pnumb，n]:; stringgrid1.Cells[3。

count]; fields[6].AsString:stringgrid1.Cells[4，count]; fields[3].AsString:stringgrid1.Cells[2，hwnumb，1]:; end; ，count]; fields[4].AsString:stringgrid1.Cells[3，。