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

下面是VB.NET代码示例，实现通过单击SuperGridControl的单元格，获取关联数据并存入DataTable中：

Private Sub SuperGridControl1_CellClick(sender As Object, e As GridCellClickEventArgs) Handles SuperGridControl1.CellClick
'获取单元格的关联数据
Dim row As GridRow = e.GridCell.GridRow
Dim data As MyData = TryCast(row.Tag, MyData)

'将关联数据存入DataTable中
Dim dt As DataTable = New DataTable()
dt.Columns.Add("Column1")
dt.Columns.Add("Column2")
dt.Columns.Add("Column3")
dt.Rows.Add(data.Column1, data.Column2, data.Column3)
End Sub

其中，MyData表示关联数据的类型，Column1、Column2、Column3为数据表中的列名。在单击单元格时，获取该单元格所在行的关联数据，并将其存入一个新的DataTable中。

相关问题

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在supergridcontrol中，通過單擊主表單元格，獲取關聯表的信息，存放在datatable中

可以通过以下步骤实现：

1. 在主表格中添加一个单元格点击事件处理程序。

2. 在处理程序中获取所选行的关联数据，以及关联表的名称。

3. 使用ADO.NET连接到数据库，并将查询结果存储在一个DataTable中。

以下是示例代码：

Private Sub SuperGridControl1_CellClick(ByVal sender As Object, ByVal e As GridCellClickEventArgs) Handles SuperGridControl1.CellClick

'获取所选行的关联数据和关联表名
Dim relateData As Object = e.GridPanel.GetCell(e.GridCell.RowIndex, "relateData").Value
Dim relateTableName As String = e.GridPanel.GetCell(e.GridCell.RowIndex, "relateTableName").Value

'连接到数据库并查询
Dim connectionString As String = "Data Source=yourDatabase;Initial Catalog=yourCatalog;User ID=yourUser;Password=yourPassword"
Dim query As String = "SELECT * FROM " & relateTableName & " WHERE ID = " & relateData
Dim dataTable As New DataTable()

Using connection As New SqlConnection(connectionString)
connection.Open()
Using command As New SqlCommand(query, connection)
dataTable.Load(command.ExecuteReader())
End Using
End Using

'在dataTable中处理查询结果
'...

End Sub

注意：示例代码中的连接字符串、查询语句和处理查询结果的代码需要根据实际情况进行修改。