Hi Puneet
u have to use datatable.SetCurrentRow(x+1) at Before end if
I have modified the code.just run this and let me know the result
For x = 1 to 2
Window("Customer Tracking (Privacy").RunAnalog "Track7"
VbWindow("CWMainForm").
>
> VbTreeView("AppServerTree").Output
> CheckPoint("AppServerTree")
> Val1=Datatable.value("Customer_in_Apps",dtGlobalSheet) = runtimevalue
> Val2=Datatable.Value("Customer",dtGlobalSheet)
> If (trim(Val1)=trim(Val2) Then Reporter.ReportEvent micPass,
> "Customer validation_ successful", "Actual Value: " &Val2&vbcrlf&
> "Some Value: " &Val1
> lse
> Reporter.ReportEvent micFail, "Customer validation unsuccessful",
> "Actual Value: "_ &Val2&vbcrlf& "Some Value: " &Val1
>
datatable.SetCurrentRow(x+1)
> End If
> Next
Thanks
raghu
On Mon, Dec 19, 2011 at 7:56 PM, Puneet <[email protected]> wrote:
> I am trying to figure out how to get the runtime data to store in each
> row rather than overwrite the first row. I am compare the value with
> Val2 with Val1. Thanks
>
> Runtime data Match
> Customer1 Customer1
> Customer2 Customer2
>
> The system is giving me as follows:
> Runtime data Match
> Customer2 Customer 1
> Customer 2
>
> For x = 1 to 2
> datatable.SetCurrentRow(x)
> Window("Customer Tracking (Privacy").RunAnalog "Track7"
> VbWindow("CWMainForm").VbTreeView("AppServerTree").Output
> CheckPoint("AppServerTree")
> Val1=Datatable.value("Customer_in_Apps",dtGlobalSheet) = runtimevalue
> Val2=Datatable.Value("Customer",dtGlobalSheet)
> If (trim(Val1)=trim(Val2) Then Reporter.ReportEvent micPass,
> "Customer validation_ successful", "Actual Value: " &Val2&vbcrlf&
> "Some Value: " &Val1
> lse
> Reporter.ReportEvent micFail, "Customer validation unsuccessful",
> "Actual Value: "_ &Val2&vbcrlf& "Some Value: " &Val1
> End If
> Next
>
> --
> You received this message because you are subscribed to the Google
> "QTP - HP Quick Test Professional - Automated Software Testing"
> group.
> To post to this group, send email to [email protected]
> To unsubscribe from this group, send email to
> [email protected]
> For more options, visit this group at
> http://groups.google.com/group/MercuryQTP?hl=en
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
