sophieProfession

Dim dt As DataTable = CType(ObjFundMenu.Select(), DataView).ToTable()
dt.Columns.Add("Url", Type.GetType("System.String"))
Dim url As String = GoPage & "?FundID="

url.Replace("~", "..\")
For i As Integer = 0 To dt.Rows.Count - 1
alink(i) = url.Replace("~", "..") & dt.Rows(i).Item(0)
Next

For i As Integer = 0 To dt.Rows.Count - 1
dt.Rows(i).Item("Url") = url & dt.Rows(i).Item(0)
Next

Me.DataList1.DataSource = dt
Me.DataList1.DataBind()-----