以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]跨表引用通过button的click  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88300)
--  作者：鸡蛋
--  发布时间：2016/7/31 11:14:00
--  [求助]跨表引用通过button的click
请问怎么在click事件中实现跨表引用数据？
--  作者：大红袍
--  发布时间：2016/7/31 11:38:00
--  

把 e.DataCol.Name 去掉

 

把 e.DataRow 改成 Tables("表A").Current
--  作者：鸡蛋
--  发布时间：2016/7/31 12:06:00
--  [求助]
请问如果要实现整列的数据引用呢？怎么样简洁点
--  作者：鸡蛋
--  发布时间：2016/7/31 16:02:00
--  [求助]
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

请问这个怎么改成click事件的并且是执行多行的而不是当前行
--  作者：大红袍
--  发布时间：2016/7/31 16:02:00
--  

比如代码

 

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

 


Next
--  作者：鸡蛋
--  发布时间：2016/7/31 16:53:00
--  [求助]
请问有没有可能就是不通过相同列来建立联系？这个是通过第一列相同来建立联系，那如果一开始表A有数据，而表B没有数据，怎么样来引用表A的数据到表B？
--  作者：大红袍
--  发布时间：2016/7/31 18:38:00
--  

参考

 

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

 

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