diff --git a/复合检验管理/U_MJManageNewFDNew.pas b/复合检验管理/U_MJManageNewFDNew.pas
index 948c84a..cb71752 100644
--- a/复合检验管理/U_MJManageNewFDNew.pas
+++ b/复合检验管理/U_MJManageNewFDNew.pas
@@ -2601,10 +2601,10 @@ begin
       Application.MessageBox('ȡ����������ʧ�ܣ�', '��ʾ', 0);
       Exit;
     end;
-    baoid.Text := FBaoID;
+    baoid.Text := FBaoID;                 
     Edit3.Text := '��';
     Edit4.Text := '';
-    MJStr4.Text := '';
+    MJStr4.Text :=  Trim(ADOTmp.fieldbyname('GangHao').AsString);
   end
   else
   begin