Exporting drop down values in Excel

[sudhirzpatil]

Hi All,
I am trying to export run time drop down values to excel. I am able to export but not as expected.
In flight reservation We have Fly From and Fly TO drop down,
When we select particular City from Fly From, same City should not display in Fly TO.
I want the result in excel as
from to
Denver Frankfurt
Denver London
Denver Los Angeles
Denver Paris
Denver Portland
Denver San Francisco
Denver Seattle
Denver Sydney
Denver Zurich
Zurich Denver
Zurich Frankfurt
Zurich London
Zurich Los Angeles

so on....

but i am getting values as

from to
Denver Frankfurt
London
Los Angeles
Paris
Portland
San Francisco
Seattle
Sydney
Zurich
Zurich Denver
Will any one help on this ?

[supputuri]

Make sure that you are passing the two parameters every time.

[sudhirzpatil]

I am trying with following scripts, but still not get expected result.

Code:

dim i,f,x
SystemUtil.Run "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe","","C:\Program Files\HP\QuickTest Professional\samples\flight\app\","open"
Dialog("Login").WinEdit("Agent Name:").Set "derfs"
Dialog("Login").WinEdit("Password:").SetSecure "4cc3c6e3f379b4bebf919e0c56d8d4ad4172027c"
Dialog("Login").WinButton("OK").Click
Window("Flight Reservation").ActiveX("MaskEdBox").Type "111910"
f=Window("Flight Reservation").WinComboBox("Fly From:").GetItemsCount
datatable.AddSheet("output").AddParameter "from", ""
datatable.AddSheet("output").AddParameter"to",""
For i=0 to f-1 step 1
x=Window("Flight Reservation").WinComboBox("Fly From:").GetItem(i)
DataTable.Value("from","output") = x
t=Window("Flight Reservation").WinComboBox("Fly To:").GetItemsCount
For j=0 to t-1 step 1
t=Window("Flight Reservation").WinComboBox("Fly To:").GetItem(j)
DataTable.Value("to","output") = t
DataTable.SetCurrentRow(j+1)
If x <>t Then
Reporter.ReportEvent 0,"Res","Test Passed"
Else
Reporter.ReportEvent 1,"Res","Test Failed"
End If
Next
next
DataTable.ExportSheet "G:\QTP Result\Exported files\Get values form both drop down.xls","output"

[KavitaPriyaCR]

Hi
Change the code inside the j loop as:

Code:

t=Window("Flight Reservation").WinComboBox("Fly To:").GetItem(j)
DataTable.Value("to","output") = t
DataTable.SetCurrentRow(j+1)
If x <>t Then
Reporter.ReportEvent 0,"Res","Test Passed"
Else
Reporter.ReportEvent 1,"Res","Test Failed"
End If
DataTable.Value("from","output") = x
Next

[Saket]

@Everyone - Please wrap your code in the tags to make it readable, refer posting guidelines.