| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 跨表引用 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105083) |
| -- 作者：zoyong -- 发布时间：2017/8/11 10:09:00 -- 跨表引用 datacolchanged \'\'------------将开票金额数据复制以在建项目表项目开票列中------------------------------- Dim fdr As DataRow = DataTables("在建项目").Find("项目名称 = \'" & e.DataRow("项目名称") & "\'") If fdr IsNot Nothing Then fdr("项目开票") = DataTables("项目开票登记").Compute("sum(开票金额)","项目名称 = \'" & fdr("项目名称") & "\'") End If 为什么这个有时候不起作用 帮忙看看代码有什么问题
|
| -- 作者：有点甜 -- 发布时间：2017/8/11 10:11:00 -- 用这种方式
http://www.foxtable.com/webhelp/scr/1454.htm
http://www.foxtable.com/webhelp/scr/1472.htm
|
| -- 作者：zoyong -- 发布时间：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 -- 发布时间：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 代码可用，但好像打开时加载树会闪屏 |
| -- 作者：有点甜 -- 发布时间：2017/10/15 15:56:00 -- 试试
lockbasemainform \'加载表代码 unlockbasemainform |