销售表中选择同样的的产品出库时能退出(有图)解决方法

销售表中选择同样的的产品出库时能退出(有图)

见图,出库单1(红色字)点击按钮2时选择库存表3中编号为t00004(乒乓球)时,数据导入出库单!当我们想再次选择要出库的产品时再点击按钮2,我希望如果再次选择编号为t00004(乒乓球)时能退出,数据不被导入出库单1,这样避免有些产品重复出库造成库存不准!

库存表点击代码为
 begin
  for xh:=1 to F_xsd.StringGrid1.RowCount do
  begin
  if Trim(F_xsd.StringGrid1.Cells[1,xh])='' then //查找第几行为空
  begin
  grow:=xh;
  break;
  end;
  end;
  for xh:=0 to ADoquery2.FieldCount-12 do //将数据库的数据读出
  begin
  gcol:=xh;
  if xh>=2 then gcol:=gcol+1;
  F_xsd.StringGrid1.Cells[xh+1,grow]:=ADoquery2.Fields[gcol].Value;
  end;
  F_xsd.StringGrid1.Cells[8,grow]:=ADoquery2.Fields[10].Value;
  F_xsd.StringGrid1.SetFocus;
  F_xsd.StringGrid1.Col:=7;
  F_xsd.StringGrid1.Row:=grow;
  end;



[解决办法]
加个出库批次字段，操作的时候判断一下
[解决办法]
库存表点击代码为 
begin 
for xh:=1 to F_xsd.StringGrid1.RowCount do 
begin 
if Trim(F_xsd.StringGrid1.Cells[1,xh])= " " then //查找第几行为空 
begin 
grow:=xh; 
break; 
end
/////增加判断编号是否已经选择过判断
else
begin
if Trim(F_xsd.StringGrid1.Cells[编号列,xh])= ADoquery2.Fields[编号字段].Value then
　　　　　　　　　exit;
end; 
//////增加结束
end; 
for xh:=0 to ADoquery2.FieldCount-12 do //将数据库的数据读出 
begin 
gcol:=xh; 
if xh >=2 then gcol:=gcol+1; 
F_xsd.StringGrid1.Cells[xh+1,grow]:=ADoquery2.Fields[gcol].Value; 
end; 
F_xsd.StringGrid1.Cells[8,grow]:=ADoquery2.Fields[10].Value; 
F_xsd.StringGrid1.SetFocus; 
F_xsd.StringGrid1.Col:=7; 
F_xsd.StringGrid1.Row:=grow; 
end;