Bug #836 锁定列问题

DataModules/BillsCompileDm.pas

@@ -685,7 +685,7 @@ procedure TBillsCompileData.sdvBillsCompileSetText(var Text: String;
 
   function CheckValidData: Boolean;
   begin
-    Result := (AValue.AsString = Text);
+    Result := (AValue.AsString <> Text);
     if SameText(AColumn.FieldName, 'OrgQuantity') or
        SameText(AColumn.FieldName, 'OrgTotalPrice') or
        SameText(AColumn.FieldName, 'MisQuantity') or