diff --git a/打卷检验管理/U_MJManageNewFDNew.dfm b/打卷检验管理/U_MJManageNewFDNew.dfm
index 0d54280..2c872ec 100644
--- a/打卷检验管理/U_MJManageNewFDNew.dfm
+++ b/打卷检验管理/U_MJManageNewFDNew.dfm
@@ -48,13 +48,20 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
         end>
       DataController.Summary.SummaryGroups = <>
       OptionsCustomize.ColumnFiltering = False
-      OptionsData.Editing = False
-      OptionsSelection.CellSelect = False
       OptionsView.Footer = True
       OptionsView.GroupByBox = False
       Styles.Inactive = cxStyle4
       Styles.IncSearch = cxStyle4
       Styles.Selection = cxStyle4
+      object Tv3Column3: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'Ssel'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.ImmediatePost = True
+        Properties.NullStyle = nssUnchecked
+        HeaderAlignmentHorz = taCenter
+        Width = 41
+      end
       object v3Column1: TcxGridDBColumn
         Caption = #21367#21495
         DataBinding.FieldName = 'MJXH'
@@ -77,6 +84,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
         Caption = #30721#25968
         DataBinding.FieldName = 'YMJlen'
         HeaderAlignmentHorz = taCenter
+        Options.Editing = False
         Styles.Content = cxStyle3
         Styles.Header = cxStyle3
         Width = 45
@@ -85,6 +93,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
         Caption = #30721#23610#38271#24230
         DataBinding.FieldName = 'MCMJlen'
         HeaderAlignmentHorz = taCenter
+        Options.Editing = False
         Styles.Content = cxStyle5
         Styles.Header = cxStyle5
         Width = 60
@@ -93,6 +102,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
         Caption = #27611#37325
         DataBinding.FieldName = 'MJMaoZ'
         HeaderAlignmentHorz = taCenter
+        Options.Editing = False
         Styles.Content = cxStyle5
         Styles.Footer = cxStyle5
         Styles.Header = cxStyle5
@@ -102,6 +112,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
         Caption = #20928#37325
         DataBinding.FieldName = 'MJQty4'
         HeaderAlignmentHorz = taCenter
+        Options.Editing = False
         Styles.Content = cxStyle3
         Styles.Footer = cxStyle3
         Styles.Header = cxStyle3
@@ -111,6 +122,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
         Caption = #32568#21495
         DataBinding.FieldName = 'mjstr4'
         HeaderGlyphAlignmentHorz = taCenter
+        Options.Editing = False
         Styles.Content = cxStyle5
         Styles.Header = cxStyle5
         Width = 40
@@ -127,7 +139,6 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
         Caption = #21367#26465#30721
         DataBinding.FieldName = 'MJID'
         HeaderAlignmentHorz = taCenter
-        Options.Focusing = False
         Options.Sorting = False
         Styles.Content = cxStyle5
         Styles.Header = cxStyle5
diff --git a/打卷检验管理/U_MJManageNewFDNew.pas b/打卷检验管理/U_MJManageNewFDNew.pas
index fa93a21..1ce7a9c 100644
--- a/打卷检验管理/U_MJManageNewFDNew.pas
+++ b/打卷检验管理/U_MJManageNewFDNew.pas
@@ -264,6 +264,7 @@ type
     Label43: TLabel;
     Tv3Column1: TcxGridDBColumn;
     Tv3Column2: TcxGridDBColumn;
+    Tv3Column3: TcxGridDBColumn;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
@@ -2979,12 +2980,26 @@ procedure TfrmMJManageNewFDNewSF.TBCDClick(Sender: TObject);
 var
   fPrintFile: string;
   i: Integer;
-begin
+begin                                      
   if CDS_MJID.IsEmpty then
     Exit;
   MggCDFalg := '99';
+  CDS_MJID.DisableControls;
+  with CDS_MJID do                        
+  begin
+    First;
+    while not Eof do
+    begin
+      if CDS_MJID.FieldByName('SSel').AsBoolean = True then
+      begin
+        PrtData(Trim(CDS_MJID.fieldbyname('MJID').AsString));
+      end;
 
-  PrtData(Trim(CDS_MJID.fieldbyname('MJID').AsString));
+      Next;
+    end;
+  end;
+  CDS_MJID.EnableControls;
+//  PrtData(Trim(CDS_MJID.fieldbyname('MJID').AsString));
   Label16.Caption := '';
   BTAdd.Click;
   MJLen.SetFocus;