with DBTableUnit.DBTableDM.FDDataSet do
  begin
    Open;
    FoundMI := Locate('OBJECTID', MICombobox.Text, []);
    if FoundMI = true then
    begin
      showmessage(MICombobox.Text   ' 与 '   FDCombobox.Text   ' 已经匹配！');
      exit;
    end;    //赋值
  Insert  ;
    Found02 := Locate('DH02', FDCombobox.Text, []);
    if FoundDH02 = true then
    begin
      if CanModify = true then
//*************Dataset not in Edit or insert model************       
  FieldByName('OBJECTID').Value :=  MICombobox.Text   
//**************************************************************
      else
        showmessage('数据集只读！');
    end
    else
      showmessage(' 不存在！');
  end;

 Insert  ;
    Found02 := Locate('DH02', FDCombobox.Text, []);

 Found02 := Locate('DH02', FDCombobox.Text, []);
Insert  ;