diff --git a/打卷检验管理/U_ProductOrderNewList.pas b/打卷检验管理/U_ProductOrderNewList.pas
index bf93ba1..37deab3 100644
--- a/打卷检验管理/U_ProductOrderNewList.pas
+++ b/打卷检验管理/U_ProductOrderNewList.pas
@@ -20,12 +20,12 @@ uses
   dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
   dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
   dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
-  dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
-  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
-  dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
-  dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
-  dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
-  dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
+  dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
+  dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
+  dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
+  dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
+  dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
+  dxSkinscxPCPainter;
 
 type
   TfrmProductOrderNewList = class(TForm)
@@ -204,6 +204,7 @@ type
     procedure ToolButton5Click(Sender: TObject);
     procedure ToolButton6Click(Sender: TObject);
     procedure ToolButton7Click(Sender: TObject);
+    procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
   private
     DQdate: TDateTime;
     FMainId: string;
@@ -218,7 +219,7 @@ type
   public
     FFInt, FCloth: Integer;
     fFlileFlag: string;                          
-    { Public declarations }           
+    { Public declarations }
   end;
 
 var
@@ -234,7 +235,7 @@ uses
 function TfrmProductOrderNewList.SelfConnData(): Boolean;
 begin
   try
-    with QryCheckNet do   
+    with QryCheckNet do
     begin
       Close;
       sql.Clear;
@@ -306,7 +307,23 @@ begin
   ADOQuerySub.Close;
   if Order_Main.IsEmpty then
     exit;
-  with ADOQuerySub do
+  try
+    ADOQuerySub.DisableControls;
+    with ADOQuerySub do
+    begin
+
+      Close;
+      Filtered := False;
+      sql.Clear;
+      sql.add('exec P_View_Order_sub @mainid=' + quotedstr((Order_Main.fieldbyname('mainID').AsString)));
+
+      Open;
+    end;
+
+  finally
+    ADOQuerySub.EnableControls;
+  end;
+ { with ADOQuerySub do
   begin
     close;
     sql.Clear;
@@ -328,8 +345,9 @@ begin
     sql.Add('from JYOrder_sub A ');
     sql.Add('where A.mainID =' + quotedstr((Order_Main.fieldbyname('mainID').AsString)));
     sql.Add(')AA');
+    showmessage(sql.text);
     open;
-  end;
+  end;  }
 end;
 
 procedure TfrmProductOrderNewList.FormDestroy(Sender: TObject);
@@ -922,7 +940,7 @@ end;
 
 procedure TfrmProductOrderNewList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
 begin
-  InitSub();
+  InitSub();         
 end;
 
 procedure TfrmProductOrderNewList.TFJClick(Sender: TObject);
@@ -1133,5 +1151,10 @@ begin
   end;
 end;
 
+procedure TfrmProductOrderNewList.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+begin
+  InitSub();
+end;
+
 end.