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

 是这个意思？

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

是的，我就要11楼效果，谢谢了！