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")
|