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

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

把 e.DataCol.Name 去掉

 

把 e.DataRow 改成 Tables("表A").Current

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

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

比如代码

 

For Each r As Row In Tables("表A").rows
    Dim fdr As DataRow = DataTables("表B").find("第一列 = '" & r("第一列") & "'")

 

Next

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

参考

 

http://www.foxtable.com/webhelp/scr/0680.htm

 

http://www.foxtable.com/webhelp/scr/1533.htm