以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  老师请教一下这种跨表引用的代码怎么写  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145242)

--  作者:初心不改再说未来
--  发布时间:2020/1/13 16:17:00
--  老师请教一下这种跨表引用的代码怎么写
A表中有个表达式列,计算出总利润,叫“利润”

B表中有个利润列,想引用这个A表中的利润列中的数据。

现在想:当A表有利润了,B表中自动填入A表利润列的值,如果没有,就保持为空。


If e.DataCol.Name = "品名" Then \'如果内容发生变动的是品名列
    If e.NewValue Is Nothing Then \'如果新值是空白,也就是品名列的内容为空
        e.
DataRow("单价") = Nothing \'那么清空此行单价列的内容
    
Else
        Dim
 dr As DataRow
        
\'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
        dr = 
DataTables("产品").Find("[品名] = \'" & e.NewValue & "\'")
        If
 dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
            e.
DataRow("单价") = dr("单价"
        End
 If
    End
 If
End
 If


这个是品名列有变动了才行,但是我们这边没有变动的话就没法触发这个事件了,请问老师怎么写

--  作者:初心不改再说未来
--  发布时间:2020/1/13 16:38:00
--  
双击单元格?


--  作者:有点蓝
--  发布时间:2020/1/13 17:17:00
--  
参考:http://www.foxtable.com/webhelp/topics/2381.htm

已有的数据重置一下列即可:http://www.foxtable.com/webhelp/topics/1469.htm

--  作者:初心不改再说未来
--  发布时间:2020/1/13 18:01:00
--  
引用这个A表中的利润列中的数据就好了
不用重新计算一遍A表的利润,本身A表中就计算过了,


只是卡在如何在B表中去引用A表的利润列的数据这里了,谢谢老师 

--  作者:初心不改再说未来
--  发布时间:2020/1/13 18:01:00
--  
两个表没有做关联,但是有相同的业务编号。
--  作者:有点蓝
--  发布时间:2020/1/13 20:09:00
--  
不需要关联,就是1楼的用法,如果不会请上传实例