or
<
tr
class
=
"ms-crm-List-Row"
otype
=
"9005"
oid
=
"{EF80BD25-B979-E111-8FE2-00155D282904}"
statecode
=
"Completed"
operationtype
=
"10"
>
<
TD
class
=
ms
-crm-List-DataCell
align
=
center
><
INPUT
id
=
checkBox_
{EF80BD25-B979-E111-8FE2-00155D282904}
class
=
ms
-crm-RowCheckBox
title
=
"Cell_1"
tabIndex
=
0
value
=
""
type
=
checkbox
></
TD
>
<
TD
class
=
ms
-crm-List-DataCell
align
=
center
><
IMG
alt
=
""
src
=
"/_imgs/ico_16_9005.gif?ver=1339846006"
></
TD
>
<
TD
class
=
ms
-crm-List-DataCell><
NOBR
title
=
"Cell_2"
><
A
id
=
gridBodyTable_primaryField_
{EF80BD25-B979-E111-8FE2-00155D282904}_0
class
=
ms
-crm-List-Link
title
=
"Cell_2"
tabIndex
=
0
href
=
"#"
target
=
_self
>Cell_2</
A
></
NOBR
></
TD
>
<
TD
class
=
ms
-crm-List-DataCell><
NOBR
>
<
LI
style
=
"DISPLAY: inline"
><
SPAN
class
=
gridLui
title
=
Cell_3
ondblclick
=
clearTimer
()
contentEditable
=
false
onclick
=
handleGridClick
()
otype
=
"2"
oid
=
"{0EF8471E-B979-E111-8FE2-00155D282904}"
><
IMG
id
=
ico_16_2
class
=
"ms-crm-ImageStrip-ico_16_2 ms-crm-Lookup-Item"
alt
=
""
src
=
"/_imgs/imagestrips/transparent_spacer.gif"
>Cell_3</
SPAN
></
NOBR
></
LI
></
TD
>
<
TD
class
=
ms
-crm-List-DataCell><
NOBR
>Cell_4</
NOBR
></
TD
>
<
TD
class
=
ms
-crm-List-DataCell><
NOBR
><
A
style
=
"CURSOR: hand"
id
=
gridBodyTable_lookup_
{EF80BD25-B979-E111-8FE2-00155D282904}_0
class
=
ms
-crm-List-Link
title
=
"Cell_5"
tabIndex
=
0
onclick
=
handleLookupAnchorClick
()
href
=
"#"
target
=
_self
>
<
LI
style
=
"DISPLAY: inline"
><
SPAN
class
=
gridLui
title
=
"Cell_6"
ondblclick
=
clearTimer
()
contentEditable
=
false
onclick
=
handleGridClick
()
otype
=
"8"
oid
=
"{36D460BF-1940-E111-A0D7-00155D282904}"
>Cell_6</
SPAN
></
A
></
NOBR
></
LI
></
TD
>
<
TD
class
=
"ms-crm-List-DataCell ms-crm-NumbersAndDates"
><
NOBR
>Cell_7</
NOBR
></
TD
>
<
TD
class
=
"ms-crm-List-DataCell ms-crm-NumbersAndDates"
>Cell_8</
NOBR
></
TD
>
<
TD
class
=
ms
-crm-List-DataCell> </
TD
>
Dim cpolicy As HtmlInputHidden = Pages.TravelInsuranceSalesSystem1.Get(Of HtmlInputHidden)("id=ctl00_ContentPlaceHolder1_TestGrid_ctl02_cpolicy")
For Each r As HtmlTableRow In Pages.TravelInsuranceSalesSystem1.ContentPlaceHolder1TestGridTable.AllRows
if r.RowIndex <> 0 then
'ignore the header row
For Each c As HtmlTableCell In r.Cells
if c.CellIndex = 0 then
'column 1 only
Dim cpolicy As HtmlInputHidden = c.Get(Of HtmlInputHidden)("id=~cpolicy")
if cpolicy.Equals("TI") then
Log.WriteLine("cpolicy:" & cpolicy.Value )
end if
end if
Next
end if
Next