Foxtable(狐表)用户栏目专家坐堂 → 跨表引用


  共有1349人关注过本帖树形打印复制链接

主题:跨表引用

帅哥哟,离线,有人找我吗?
zoyong
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:656 积分:7786 威望:0 精华:0 注册:2015/8/24 9:02:00
跨表引用  发帖心情 Post By:2017/8/11 10:09:00 [只看该作者]


datacolchanged

''------------将开piao金额数据复制以在建项目表项目开piao列中-------------------------------
Dim fdr As DataRow = DataTables("在建项目").Find("项目名称 = '" & e.DataRow("项目名称") & "'")
If fdr IsNot Nothing Then
    fdr("项目开piao") = DataTables("项目开piao登记").Compute("sum(开piao金额)","项目名称 = '" & fdr("项目名称") & "'")
End If

为什么这个有时候不起作用
帮忙看看代码有什么问题

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/11 10:11:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
zoyong
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:656 积分:7786 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By:2017/10/15 15:10:00 [只看该作者]


If DataTables.Contains("产品") = False Then
    DataTables.Load("产品|订单|订单明细")
End If

类似上面的代码除了下面这样的写法,还有没有其他更简单
打开窗口后自动加载没有加载的表

If DataTables.Contains("产品") = False Then
    DataTables.Load("产品")
elseif DataTables.Contains("订单") = False Then
    DataTables.Load("订单")
elseif DataTables.Contains("订单明细") = False Then
    DataTables.Load("订单明细")
elseif DataTables.Contains("保修") = False Then
    DataTables.Load("保修")
End If

 回到顶部
帅哥哟,离线,有人找我吗?
zoyong
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:656 积分:7786 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By:2017/10/15 15:46:00 [只看该作者]

For Each dtn As String In "产品,订单,订单明细,保修".split(",")
       If DataTables.Contains(dtn) = False Then '如果表C没有加载
            DataTables.Load(dtn) '加载表C
       End If
Next

代码可用,但好像打开时加载树会闪屏


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/15 15:56:00 [只看该作者]

试试

 

lockbasemainform

'加载表代码

unlockbasemainform


 回到顶部