VB.NET通過單擊supergridcontrol的單元格，獲得關聯附表的數據，存入datatable中

您可以使用以下代碼來實現這個功能：

Private Sub SuperGridControl1_CellClick(sender As Object, e As GridCellClickEventArgs) Handles SuperGridControl1.CellClick
    '檢查單元格是否包含數據行
    If e.GridCell.IsDataCell Then
        '獲取數據行對應的關聯附表
        Dim childTable As GridChildTable = e.GridCell.GridRow.GetChildTable("childTableName")
        If childTable IsNot Nothing Then
            '將數據轉換為datatable
            Dim dataTable As DataTable = childTable.ToDataTable()
            '在這裡使用datatable進行後續操作
        End If
    End If
End Sub

請注意，您需要將“childTableName”替換為實際的關聯附表名稱。另外，您還需要對datatable進行進一步的處理，以匹配您的需求。

相关问题

vb.net 將datatable顯示到supergridcontrol中

以下是將DataTable顯示到SuperGridControl的VB.NET程式碼:

' 創建DataTable
Dim dt As New DataTable()
dt.Columns.Add("ID", GetType(Integer))
dt.Columns.Add("Name", GetType(String))
dt.Columns.Add("Age", GetType(Integer))
dt.Rows.Add(1, "John Smith", 30)
dt.Rows.Add(2, "Mary Johnson", 25)
dt.Rows.Add(3, "Tom Brown", 40)

' 將DataTable顯示到SuperGridControl
superGridControl1.PrimaryGrid.DataSource = dt

這裡創建了一個DataTable，其中包含三列數據。然後，使用SuperGridControl的PrimaryGrid屬性將DataTable設置為數據源。這將自動顯示DataTable中的數據。

vb获取html表格数据,vb.net中从datatable读取数据到Excel

获取HTML表格数据可以通过使用WebClient类来获取HTML页面，并使用HtmlAgilityPack类来解析HTML。以下是示例代码：

Imports System.Net
Imports HtmlAgilityPack

Public Function GetTableDataFromHtml(url As String, tableIndex As Integer) As DataTable
    Dim webClient As New WebClient()
    Dim html As String = webClient.DownloadString(url)

    Dim doc As New HtmlDocument()
    doc.LoadHtml(html)

    Dim table As HtmlNode = doc.DocumentNode.SelectNodes("//table")(tableIndex)
    Dim headers As IEnumerable(Of HtmlNode) = table.SelectNodes("tr/th")
    Dim rows As IEnumerable(Of HtmlNode) = table.SelectNodes("tr").Skip(1)

    Dim dataTable As New DataTable()

    For Each header In headers
        dataTable.Columns.Add(header.InnerText.Trim())
    Next

    For Each row In rows
        Dim dataRow As DataRow = dataTable.NewRow()

        For i As Integer = 0 To headers.Count() - 1
            dataRow(i) = row.SelectNodes("td")(i).InnerText.Trim()
        Next

        dataTable.Rows.Add(dataRow)
    Next

    Return dataTable
End Function

要将DataTable中的数据写入Excel，可以使用Microsoft.Office.Interop.Excel类。以下是示例代码：

Imports Microsoft.Office.Interop

Public Sub WriteDataTableToExcel(dataTable As DataTable, filePath As String)
    Dim app As New Excel.Application()
    Dim workbook As Excel.Workbook = app.Workbooks.Add()
    Dim worksheet As Excel.Worksheet = workbook.Sheets(1)

    For i As Integer = 0 To dataTable.Columns.Count - 1
        worksheet.Cells(1, i + 1) = dataTable.Columns(i).ColumnName
    Next

    For i As Integer = 0 To dataTable.Rows.Count - 1
        For j As Integer = 0 To dataTable.Columns.Count - 1
            worksheet.Cells(i + 2, j + 1) = dataTable.Rows(i)(j)
        Next
    Next

    workbook.SaveAs(filePath)
    workbook.Close()
    app.Quit()
End Sub