VB.NET无需SQL查询关联多DataTable及DataSet关联后DGV无数据问题

嘿，我来帮你捋清楚这个VB.NET的DataTable关联问题～首先明确说：用DataSet+DataRelation的方法本身是可行的，但你没抓对它的使用场景，这才导致DataGridView没数据。咱们一步步拆解：

为啥你的DataRelation方案没显示数据？ #

DataRelation的核心作用是建立表之间的父子层级关系（比如订单表和订单详情表），而不是直接生成一个合并后的扁平表。当你把DataSet直接绑到DataGridView时，控件默认只会显示DataSet里的第一个表（比如TAB01），不会自动把关联的表列合并进来。如果想通过DataRelation展示关联数据，你需要用DataView或者手动构建合并逻辑，但这其实绕远路了——直接生成你要的TAB04扁平表才是更直接的方案。

正确的非SQL关联实现（纯DataTable操作） #

既然你要非SQL方案，我们可以通过遍历所有TimeStamp全集，然后从三个表中匹配对应值来生成TAB04，同时处理TimeStamp不完全匹配的情况（缺失值填DBNull.Value）。

步骤1：创建TAB04的表结构 #

首先定义目标表的列（根据你的实际数据类型调整）：

Dim TAB04 As New DataTable()
TAB04.Columns.Add("TimeStamp", GetType(DateTime))
TAB04.Columns.Add("Value1", GetType(Decimal)) 
TAB04.Columns.Add("Value2", GetType(Decimal))
TAB04.Columns.Add("Value3", GetType(Decimal))

步骤2：获取所有唯一的TimeStamp全集 #

把三个表的TimeStamp全部收集起来，去重得到所有需要处理的时间点：

Dim allTimeStamps As New HashSet(Of DateTime)()
For Each row As DataRow In TAB01.Rows
    allTimeStamps.Add(DirectCast(row("TimeStamp"), DateTime))
Next
For Each row As DataRow In TAB02.Rows
    allTimeStamps.Add(DirectCast(row("TimeStamp"), DateTime))
Next
For Each row As DataRow In TAB03.Rows
    allTimeStamps.Add(DirectCast(row("TimeStamp"), DateTime))
Next
' 按时间排序（可选，但建议让结果更直观）
Dim sortedTimeStamps = allTimeStamps.OrderBy(Function(ts) ts).ToList()

步骤3：遍历时间点，匹配各表的值并添加到TAB04 #

对每个时间点，从三个表中查找对应行，没有找到的话就填DBNull.Value：

For Each ts As DateTime In sortedTimeStamps
    Dim newRow As DataRow = TAB04.NewRow()
    newRow("TimeStamp") = ts
    
    ' 从TAB01找对应值
    Dim row1 = TAB01.AsEnumerable().FirstOrDefault(Function(r) DirectCast(r("TimeStamp"), DateTime) = ts)
    newRow("Value1") = If(row1 IsNot Nothing, row1("Value1"), DBNull.Value)
    
    ' 从TAB02找对应值
    Dim row2 = TAB02.AsEnumerable().FirstOrDefault(Function(r) DirectCast(r("TimeStamp"), DateTime) = ts)
    newRow("Value2") = If(row2 IsNot Nothing, row2("Value2"), DBNull.Value)
    
    ' 从TAB03找对应值
    Dim row3 = TAB03.AsEnumerable().FirstOrDefault(Function(r) DirectCast(r("TimeStamp"), DateTime) = ts)
    newRow("Value3") = If(row3 IsNot Nothing, row3("Value3"), DBNull.Value)
    
    TAB04.Rows.Add(newRow)
Next

可选：处理TimeStamp精度问题 #

如果你的TimeStamp是带毫秒的DateTime，可能存在微小精度差异导致匹配失败，这时候可以用时间差来判断：

' 把匹配条件改成判断时间差在允许范围内（比如1毫秒）
Dim row1 = TAB01.AsEnumerable().FirstOrDefault(Function(r) 
    Math.Abs((DirectCast(r("TimeStamp"), DateTime) - ts).TotalMilliseconds) <= 1
)

最后绑定到DataGridView #

现在直接把TAB04绑到控件就可以正常显示数据了：

DGV1.DataSource = TAB04

回到你的DataSet+DataRelation疑问 #

如果一定要用DataRelation，你需要手动构建一个合并后的视图，或者使用DataTable.Merge方法，但Merge更适合结构相同的表合并，对你这种结构不同的表不太适用。所以还是上面的扁平表方案更贴合你的需求。

内容的提问来源于stack exchange，提问作者Pspl