25-03-2009, 07:14 AM
قم بعمل ترتيب للجدول بالاعتماد على الحقلين الثاني والثالث
كود :
Select * From Table1 Sort by CDE, SCDE;
In Delphi
Query1.Open;
While Not Query1.EOF Do
Begin
{Keep Previous Values}
Montant:=Query1Montant.AsInteger;
CDE:=Query1CDE.AsInteger;
SCDE:=Query1SCDE.AsString;
Query1.Next;
{Compare Previous and Next Values}
IF (CDE=Query1CDE.AsInteger) And (SCDE=Query1SCDE.AsString) Then
Begin
{Write the Code To Insert Your Values In The Second Table}
End;
While (CDE=Query1CDE.AsInteger) And (SCDE=Query1SCDE.AsString) Do {Skip Same Rows}
Query1.Next;
End;