Нажмите VB.NET, чтобы открыть новое окно, которое считывает файл JSON с FTP и отображает в новом окне. - PullRequest
0 голосов
/ 13 марта 2019

Как уже говорилось, я пытаюсь добиться того, чтобы у меня была таблица / таблица, в которой отображаются данные, и я динамически создаю гиперссылки для одного из столбцов, называемых «Отслеживание».

То, чего я хочу добиться, - это нажать 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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...