Как уже говорилось, я пытаюсь добиться того, чтобы у меня была таблица / таблица, в которой отображаются данные, и я динамически создаю гиперссылки для одного из столбцов, называемых «Отслеживание».
То, чего я хочу добиться, - это нажать onclick. Откроется окно, которое читает и отображает файл json, который хранится на FTP-сервере. (Этот сайт доступен только для сотрудников, поэтому проблема безопасности не так важна)
Вот то, что я имею до сих пор, после копания в stackoverflow и нескольких других статьях. Мне удалось привязать нажатие, чтобы открыть новое окно, которое ведет непосредственно к файлу json на FTP-сервере, но вместо его загрузки я хочу прочитать и отобразить его.
Конечным результатом должно быть не только просмотр, но и возможность редактирования в новом окне.
Относительно плохо знакомый с HTML / Code Behind, будь осторожен со мной:)
Код показан ниже:
Private Sub grdDeliveryOrder_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles grdDeliveryOrder.RowDataBound
If e.Row.RowType = DataControlRowType.Header Then
For index As Integer = 10 To e.Row.Cells.Count - 1
e.Row.Cells(index).Visible = False
Next
End If
If e.Row.RowType = DataControlRowType.DataRow Then
For index As Integer = 10 To e.Row.Cells.Count - 1
e.Row.Cells(index).Visible = False
Next
'Add Hyperlink to Column
Dim the_url As HyperLink = New HyperLink()
the_url.Text = e.Row.Cells(6).Text
e.Row.Cells(6).ForeColor = Color.Blue
e.Row.Cells(6).BackColor = Color.White
Dim trackingDate As Date = e.Row.Cells(2).Text
Dim strDate As String = trackingDate.Year.ToString() + parseDate(trackingDate.Month, trackingDate.Day)
Dim ds As New DataSet
Dim objGrd As New XEBI.BIGNXWOTransaction
ds = objGrd.GetdsDocument("ORDER_IN", "", e.Row.Cells(4).Text, e.Row.Cells(5).Text)
Dim documentNo As String = ds.Tables(0).Rows(0)("DOCUMENT_NO").ToString()
DEBUGtextbox.Text = documentNo
DEBUGtextbox2.Text = e.Row.Cells(5).Text
the_url.Attributes.Add("onclick", "window.open ('ftp://username:password@ipAddress/" + e.Row.Cells(4).Text + "/IN/BACKUP/" + strDate + "/" + e.Row.Cells(9).Text + "', JSON); return false; href = 'javascript:void(0);'")
e.Row.Cells(6).Controls.Add(the_url)
Dim grdOrder As GridView = CType(e.Row.FindControl("grdDeliveryOrder"), GridView)
Dim chkItem As CheckBox = CType(e.Row.FindControl("chkItem"), CheckBox)
End If
End Sub