01.
Private
Sub
CreateGridLinks(item
As
GridItem)
02.
If
TypeOf
item
Is
Telerik.Web.UI.GridDataItem
Then
03.
Dim
dataItem
As
Telerik.Web.UI.GridDataItem =
CType
(item, Telerik.Web.UI.GridDataItem)
04.
For
Each
cell
As
TableCell
In
item.Cells
05.
Dim
Issues()
As
String
= cell.Text.Split(
";"
c)
06.
If
Issues.Length > 1
AndAlso
cell.Text <>
" "
Then
07.
Dim
CellText
As
String
= Issues(0) +
" "
08.
Dim
CellId
As
String
=
""
09.
Dim
IssueAppealType
As
String
=
""
10.
Dim
IssueAppealId
As
String
=
""
11.
For
i
As
Integer
= 1
To
_issues.Length - 1
12.
If
i = 1
Then
13.
cell.Controls.Add(
New
LiteralControl(CellText))
14.
End
If
15.
If
_issues(i).Trim.Split(
":"
c).Length > 1
Then
16.
Dim
IssueAppealButton
As
New
LinkButton()
17.
CellId = _issues(i).Trim.Replace(
":"
,
""
)
18.
19.
Dim
IssueAppealArray = _issues(i).Trim.Split(
":"
c)
20.
IssueAppealType = IssueAppealArray(0)
21.
IssueAppealId = IssueAppealArray(1)
22.
IssueAppealButton.Text = IssueAppealId
23.
cntrlCount += 1
24.
IssueAppealButton.ID =
"LinkButton"
+ CellId + cntrlCount.ToString
25.
26.
AddHandler
IssueAppealButton.Click,
Sub
(send, evt) HandleIssueLinkClick(IssueAppealId, IssueAppealType)
27.
28.
cell.Controls.Add(IssueAppealButton)
29.
cell.Controls.Add(
New
LiteralControl(
" "
))
30.
End
If
31.
Next
32.
33.
End
If
34.
Next
35.
End
If
36.
End
Sub