主题：如何从子表查询父表信息

 可以，但是你需要定位一下父表的位置。在currentChanged事件写入

If e.Table.Current IsNot Nothing Then

Dim pdr As Datarow =  e.Table.Current.DataRow.GetParentRow("父表")

If pdr IsNot Nothing Then

    Dim idx As Integer = Tables("父表").FindRow(pdr)

    If idx > -1 then

        Tables("父表").Position = idx

    End If

End If

End If

 不明白6楼的意思，关联列，不是一一对应的么，至少个数一致的。

 你做个例子上来吧。

 是这个意思？

If e.Table.Current IsNot Nothing Then
    Dim ary() As String = e.Table.Current("第一列").split("-")
    If ary.Length > 0 Then
        Dim pdr As DataRow =  DataTables("表A").Find("第一列 like '" & ary(0) & "'")
        If pdr IsNot Nothing Then
            Dim idx As Integer = Tables("表A").FindRow(pdr)
            If idx > -1 Then
                Tables("表A").Position = idx
            End If
        End If
    End If
End If