/
Default.aspx.vb
50 lines (46 loc) · 1.5 KB
/
Default.aspx.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Imports Microsoft.VisualBasic
Imports System
Imports System.Collections
Imports System.Configuration
Imports System.Data
Imports System.Linq
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.HtmlControls
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Xml.Linq
Imports DevExpress.Web
Namespace HyperlinkColumn
Partial Public Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Init(ByVal sender As Object, ByVal e As EventArgs)
ASPxGridView1.KeyFieldName = "ID"
ASPxGridView1.DataSource = GetData()
If (Not IsPostBack) AndAlso (Not IsCallback) Then
PopulateColumns()
ASPxGridView1.DataBind()
End If
End Sub
Public Function GetData() As DataTable
Dim Table As New DataTable()
Table.Columns.Add("ID", GetType(Integer))
Table.Columns.Add("ItemName", GetType(String))
Table.Rows.Add(1, "A")
Table.Rows.Add(2, "B")
Return Table
End Function
Public Sub PopulateColumns()
Dim colID As New GridViewDataTextColumn()
colID.FieldName = "ID"
ASPxGridView1.Columns.Add(colID)
Dim colItemName As New GridViewDataHyperLinkColumn()
colItemName.FieldName = "ItemName"
colItemName.PropertiesHyperLinkEdit.NavigateUrlFormatString = "~/details.aspx?Device={0}"
colItemName.PropertiesHyperLinkEdit.TextFormatString = "Get details about device {0}"
colItemName.PropertiesHyperLinkEdit.TextField = "ItemName"
ASPxGridView1.Columns.Add(colItemName)
End Sub
End Class
End Namespace