0 голосов
спросил от в категории VBASPNETVBNET
Привет,

С небольшими изменениями он должен работать сейчас, как показано ниже.

Private Sub makeHTML(ByVal pDataSet As DataSet) Dim lRowCount As Integer = 0 Dim lColCount As Integer = 0 Dim hCell As New HtmlTableCell Dim lHyperLink(pDataSet.Tables(0).Rows.Count) As LinkButton While lRowCount < pDataSet.Tables(0).Rows.Count     Dim hRow As New HtmlTableRow     hRow.Cells.Add(hCell)     lHyperLink(lRowCount) = New LinkButton()     lHyperLink(lRowCount).Text = "Hello"     lHyperLink(lRowCount).ID = "LBHLink" + lRowCount.ToString     AddHandler lHyperLink(lRowCount).Click, AddressOf lHyperLink_Click     hRow.Cells(lColCount).Controls.Add(lHyperLink(lRowCount))     lRowCount += 1     hTable.Rows.Add(hRow) End While tPanel.Controls.Add(hTable) End Sub

Пожалуйста, войдите или зарегистрируйтесь чтобы ответить на этот вопрос.

Категории

Добро пожаловать на сайт DraftingCode Q&A, где вы можете задавать вопросы и получать ответы от других членов сообщества.

Связанных вопросов не найдено

...