diff --git a/B02基础纱线仓库/U_YarnOutEdit.dfm b/B02基础纱线仓库/U_YarnOutEdit.dfm
index a51b21f..1ab6a6b 100644
--- a/B02基础纱线仓库/U_YarnOutEdit.dfm
+++ b/B02基础纱线仓库/U_YarnOutEdit.dfm
@@ -10,7 +10,6 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
   Font.Name = #23435#20307
   Position = poMainFormCenter
   OnClose = FormClose
-  ExplicitLeft = -8
   ExplicitWidth = 1422
   ExplicitHeight = 793
   PixelsPerInch = 96
@@ -406,7 +405,6 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
         Font.Style = []
         ParentFont = False
         TabOrder = 1
-        ExplicitLeft = -1
         object TV2: TcxGridDBTableView
           OnDblClick = TV2DblClick
           Navigator.Buttons.CustomButtons = <>
diff --git a/B02基础纱线仓库/U_YarnStkHZSel.dfm b/B02基础纱线仓库/U_YarnStkHZSel.dfm
index f0cca6b..500778d 100644
--- a/B02基础纱线仓库/U_YarnStkHZSel.dfm
+++ b/B02基础纱线仓库/U_YarnStkHZSel.dfm
@@ -162,8 +162,8 @@ inherited frmYarnStkHZSel: TfrmYarnStkHZSel
     Align = alClient
     PopupMenu = PopupMenu1
     TabOrder = 2
-    ExplicitLeft = -1
     object Tv1: TcxGridDBTableView
+      OnDblClick = Tv1DblClick
       Navigator.Buttons.CustomButtons = <>
       ScrollbarAnnotations.CustomAnnotations = <>
       DataController.DataSource = DataSource1
diff --git a/B02基础纱线仓库/U_YarnStkHZSel.pas b/B02基础纱线仓库/U_YarnStkHZSel.pas
index fb5e21b..708e63b 100644
--- a/B02基础纱线仓库/U_YarnStkHZSel.pas
+++ b/B02基础纱线仓库/U_YarnStkHZSel.pas
@@ -69,6 +69,7 @@ type
     procedure ToolButton1Click(Sender: TObject);
     procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
     procedure ToolButton2Click(Sender: TObject);
+    procedure Tv1DblClick(Sender: TObject);
   private
     procedure InitGrid();
     { Private declarations }
@@ -108,9 +109,12 @@ begin
       Filtered := False;
       Close;
       sql.Clear;
-      sql.Add(' select A.* ');
-      sql.Add(' from BS_Yarn_IO A where  A.IOFlag=''Èë¿â'' and  isnull(STkQty,0)>0   ');
-      sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');
+      sql.Add(' select FromCoNo,FromCoName,StkCoNo,StkCoName,Brand,Y_Name,stkqty=sum(ioqtyflag*qty),Price,QtyUnit,StkPosition');
+      sql.Add(' from BS_Yarn_IO A where');
+      sql.Add(' isnull(stkName,'''')=''' + Trim(FstkName) + '''');
+      sql.Add('GROUP BY FromCoNo,FromCoName,StkCoNo,StkCoName,Brand,Y_Name,Price,QtyUnit,StkPosition');
+      SQL.Add('HAVING sum(ioqtyflag*qty)>0');
+      sql.Add('order by StkCoName,Brand,Y_Name');
       Open;
     end;
     SCreateCDS(ADOQueryMain, CDS_Main);
@@ -203,5 +207,10 @@ begin
   ModalResult := 1;
 end;
 
+procedure TfrmYarnStkHZSel.Tv1DblClick(Sender: TObject);
+begin
+  ModalResult := 1;
+end;
+
 end.