VB 添加DataTable一列至另一个DataTable的一列

在Visual Basic (VB) 中，如果你想要将一个 DataTable 的一列添加到另一个 DataTable 的一列，你可以通过以下步骤完成：

1. 首先，确保你已经有了两个 DataTable 对象，分别叫做 dtSource 和 dtDestination。

Dim dtSource As New DataTable()
Dim dtDestination As New DataTable()

' ... (在这里填充源数据)

' ... (在这里填充目标数据)

2. 确认你要添加的源表列（Column）存在，并且目标表的相应位置允许新增列。例如，假设你想将 `dtSource` 的 "ColName" 列复制到 `dtDestination` 的 "TargetColName" 列：

If dtDestination.Columns.Contains("TargetColName") Then
    ' 目标列已存在，则直接跳过
Else
    ' 如果目标列不存在，创建新的 DataColumn 并添加到目标表
    Dim sourceCol As DataColumn = dtSource.Columns("ColName")
    dtDestination.Columns.Add(sourceCol.ColumnName, sourceCol.DataType)
End If

3. 使用 `CopyToDataTable` 方法将源表的指定列复制到目标表的对应位置：

Dim sourceTableRange As DataRowView() = dtSource.Select("ColName IS NOT NULL")
dtDestination.ImportRowRange(sourceTableRange, "TargetColName")

这会把所有 `ColName` 非空的行及其对应的 "ColName" 列值复制到 `dtDestination` 的 "TargetColName" 列。