K=0

For i=1 to 3

datatable.SetCurrentRow i

vFromlist=Datatable("FROMLIST",DtGlobalsheet)

vTolist=Datatable("TOLIST",DtGlobalsheet)

If vFromlist <> vTolist Then

datatable.SetCurrentRow K+1

Datatable("W_FROMLIST",DtGlobalsheet)=vFromlist

END IF

For j=1 to 3

K=K+1

datatable.SetCurrentRow j

vTolist=Datatable("TOLIST",DtGlobalsheet)

If vFromlist <> vTolist Then

datatable.SetCurrentRow K

Datatable("W_TOLIST",DtGlobalsheet)=vTolist

Datatable("W_FROMLIST",DtGlobalsheet)=vFromlist

ELSE

K=K-1

End If

Next

Next

DataTable.Export ("C:flightscombo.xls")