-cr-
asked on
Setting last field of data table to be a hyperlink
I have the code below and need to make the last field a hyperlink to VeiwQuoteID.aspx
Dim EMailLogDataStoredProcedur e As String
Select Case Request.QueryString("sp")
Case "1"
EMailLogDataStoredProcedur e = "usr_sel_EMailLog_BrokerAd ministrati onEMailLog Output"
Case "2"
EMailLogDataStoredProcedur e = "usr_sel_EMailLog_BrokerAd ministrati onEMailLog Output_Bra ndedPageOw nerEMailOu tput"
Case "3"
EMailLogDataStoredProcedur e = "usr_sel_EMailLog_BrokerAd ministrati onEMailLog Output_Man agerEmploy eeEMailOut put"
End Select
Dim dt As New DataTable
'dt.Columns.Add("ID", GetType(Integer))
dt.Columns.Add("Sender", GetType(String))
dt.Columns.Add("Recipient" , GetType(String))
dt.Columns.Add("Subject", GetType(String))
dt.Columns.Add("SentDate", GetType(DateTime))
dt.Columns.Add("View", GetType(String))
'Dim Crypter As New Encryption64
Dim strBrokerEmail As String = Request.Cookies("BrokerEMa ilAddress" ).Value
'MsgBox(strBrokerEmail, MsgBoxStyle.Information, "Broker Email")
Dim strSP As String = EMailLogDataStoredProcedur e
Dim EMailLogDataConnString As String = ConfigurationManager.AppSe ttings("** *")
Dim EMailLogDataConn As New SqlConnection(EMailLogData ConnString )
Dim SQLEMailLogDataCmd As New SqlCommand(strSP, EMailLogDataConn)
Dim EMailLogData As SqlDataReader
SQLEMailLogDataCmd.Command Type = CommandType.StoredProcedur e
SQLEMailLogDataCmd.Paramet ers.AddWit hValue("@B rokerEMail Address", strBrokerEmail)
SQLEMailLogDataCmd.Paramet ers.AddWit hValue("@S tartDate", StartDate.Text)
SQLEMailLogDataCmd.Paramet ers.AddWit hValue("@E ndDate", EndDate.Text)
EMailLogDataConn.Open()
EMailLogData = SQLEMailLogDataCmd.Execute Reader
While EMailLogData.Read
dt.Rows.Add(New Object() {LCase(EMailLogData("Sende r")), LCase(EMailLogData("Recipi ent")), LCase(EMailLogData("Subjec t")), LCase(EMailLogData("SentDa te")), LCase(EMailLogData("QuoteI D"))})
End While
If EMailLogData.HasRows = False Then
lblNoResults.Visible = False
lblNoResults.Text = "**Sorry there were no results for your query"
lblNoResults.Visible = True
End If
If EMailLogData.HasRows = True Then
lblNoResults.Visible = False
Grid1.DataSource = dt
Grid1.DataBind()
Grid1.Visible = True
End If
SQLEMailLogDataCmd.Dispose ()
SQLEMailLogDataCmd = Nothing
EMailLogData.Close()
EMailLogData = Nothing
EMailLogDataConn.Close()
EMailLogDataConn.Dispose()
EMailLogDataConn = Nothing
EMailLogDataConnString = Nothing
Dim EMailLogDataStoredProcedur
Select Case Request.QueryString("sp")
Case "1"
EMailLogDataStoredProcedur
Case "2"
EMailLogDataStoredProcedur
Case "3"
EMailLogDataStoredProcedur
End Select
Dim dt As New DataTable
'dt.Columns.Add("ID", GetType(Integer))
dt.Columns.Add("Sender", GetType(String))
dt.Columns.Add("Recipient"
dt.Columns.Add("Subject", GetType(String))
dt.Columns.Add("SentDate",
dt.Columns.Add("View", GetType(String))
'Dim Crypter As New Encryption64
Dim strBrokerEmail As String = Request.Cookies("BrokerEMa
'MsgBox(strBrokerEmail, MsgBoxStyle.Information, "Broker Email")
Dim strSP As String = EMailLogDataStoredProcedur
Dim EMailLogDataConnString As String = ConfigurationManager.AppSe
Dim EMailLogDataConn As New SqlConnection(EMailLogData
Dim SQLEMailLogDataCmd As New SqlCommand(strSP, EMailLogDataConn)
Dim EMailLogData As SqlDataReader
SQLEMailLogDataCmd.Command
SQLEMailLogDataCmd.Paramet
SQLEMailLogDataCmd.Paramet
SQLEMailLogDataCmd.Paramet
EMailLogDataConn.Open()
EMailLogData = SQLEMailLogDataCmd.Execute
While EMailLogData.Read
dt.Rows.Add(New Object() {LCase(EMailLogData("Sende
End While
If EMailLogData.HasRows = False Then
lblNoResults.Visible = False
lblNoResults.Text = "**Sorry there were no results for your query"
lblNoResults.Visible = True
End If
If EMailLogData.HasRows = True Then
lblNoResults.Visible = False
Grid1.DataSource = dt
Grid1.DataBind()
Grid1.Visible = True
End If
SQLEMailLogDataCmd.Dispose
SQLEMailLogDataCmd = Nothing
EMailLogData.Close()
EMailLogData = Nothing
EMailLogDataConn.Close()
EMailLogDataConn.Dispose()
EMailLogDataConn = Nothing
EMailLogDataConnString = Nothing
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
'Try this
'Prøv denne her klasse som håndterer hyperlinks
Class Form34
Inherits Form
Private dt As DataTable = New DataTable
Public Sub New()
MyBase.New
InitializeComponent
End Sub
Private Sub Form34_Load(ByVal sender As Object, ByVal e As EventArgs)
dt.Columns.Add("id")
dt.Columns.Add("link")
dt.Rows.Add("1", "http://www.microsoft.com")
dt.Rows.Add("2", "http://www.google.com")
dt.AcceptChanges
Me.dataGridView1.DataSourc e = dt
Me.dataGridView1.Columns.R emoveAt(1)
Dim dgvlc As DataGridViewLinkColumn = New DataGridViewLinkColumn
dgvlc.DataPropertyName = "link"
'bind to the correct data column
dgvlc.HeaderText = "Link"
dgvlc.Width = 260
Me.dataGridView1.Columns.A dd(dgvlc)
AddHandler dataGridView1.CellContentC lick, AddressOf Me.dataGridView1_CellConte ntClick
End Sub
Private Sub dataGridView1_CellContentC lick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs)
If (TypeOf Me.dataGridView1.Columns(e .ColumnInd ex) Is DataGridViewLinkColumn) Then
'do your stuff here
Dim link As String = Me.dataGridView1(e.ColumnI ndex, e.RowIndex).Value.ToString
System.Diagnostics.Process .Start(lin k)
End If
End Sub
End Class
vbturbo
'Prøv denne her klasse som håndterer hyperlinks
Class Form34
Inherits Form
Private dt As DataTable = New DataTable
Public Sub New()
MyBase.New
InitializeComponent
End Sub
Private Sub Form34_Load(ByVal sender As Object, ByVal e As EventArgs)
dt.Columns.Add("id")
dt.Columns.Add("link")
dt.Rows.Add("1", "http://www.microsoft.com")
dt.Rows.Add("2", "http://www.google.com")
dt.AcceptChanges
Me.dataGridView1.DataSourc
Me.dataGridView1.Columns.R
Dim dgvlc As DataGridViewLinkColumn = New DataGridViewLinkColumn
dgvlc.DataPropertyName = "link"
'bind to the correct data column
dgvlc.HeaderText = "Link"
dgvlc.Width = 260
Me.dataGridView1.Columns.A
AddHandler dataGridView1.CellContentC
End Sub
Private Sub dataGridView1_CellContentC
If (TypeOf Me.dataGridView1.Columns(e
'do your stuff here
Dim link As String = Me.dataGridView1(e.ColumnI
System.Diagnostics.Process
End If
End Sub
End Class
vbturbo
ASKER
Adam,
I ended up doing the same as metioned in the accepted solution prior to seeing your solution. Awarded points for that reason. Thanks for your help.
I ended up doing the same as metioned in the accepted solution prior to seeing your solution. Awarded points for that reason. Thanks for your help.
Which project type are you using ASP.NET or Windows Application
if its ASP.NET in the markup you can go
<asp:TemplateField>
<ItemTemplate>
<%# "<a href='viewQuoteID.aspx?ID=
</ItemTemplate>
</asp:TemplateField>
just a note that the # could be an = sign (i currently cant remember which one it is)
<asp