主题：[求助]跨表引用通过button的click

请问怎么在click事件中实现跨表引用数据？

请问如果要实现整列的数据引用呢？怎么样简洁点

If e.DataCol.Name = "品名" Then
    If e.NewValue Is Nothing Then
        e.DataRow("单价") = Nothing
    Else
        Dim dr As DataRow
         dr = DataTables("产品").Find("[品名] = '" & e.NewValue & "'")
          e.DataRow("单价") = dr("单价")
        End If
    End If
End If

请问有没有可能就是不通过相同列来建立联系？这个是通过第一列相同来建立联系，那如果一开始表A有数据，而表B没有数据，怎么样来引用表A的数据到表B？