ADOQryResult.Locate('CKDJID', EditNum.Text, [loCaseInsensitive]);
-------------------------------------------------------------------------------------------------------------
procedure Tfrmstore_material_in_import2.ToolBtnSelectClick(Sender: TObject);
var
i : integer;
begin
if assigned(frmStore_Material_In) then
begin
if not ADOQryResult.IsEmpty then
if ADOQrySelect.Locate('SLID;NUM',
vararrayof([ADOQryResult.FieldValues['SLID'],
ADOQryResult.FieldValues['NUM']]),
[loCaseInsensitive]) = false then
begin //ADOQrySelect中还没有这条记录
if ADOQrySelect.RecordCount<1 then
begin
ADOQrySelect.Append;
for i := 0 to ADOQrySelect.FieldCount - 1 do
ADOQrySelect.Fields[i].Value := ADOQryResult.Fields[i].Value;
end
else if (ADOQryResult.FieldValues['SLID'] = ADOQrySelect.FieldValues['SLID']) then
begin
ADOQrySelect.Append;
for i := 0 to ADOQrySelect.FieldCount - 1 do
ADOQrySelect.Fields[i].Value := ADOQryResult.Fields[i].Value;
end
else application.MessageBox(' 不允许选择多个收料订单!','提示',MB_OK);
end;
end;
end;