- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 子表加载的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123512)
-- 发布时间：2018/8/16 15:43:00
-- 子表加载的问题
-- 发布时间：2018/8/16 15:44:00
--
具体一点你的问题。
-- 发布时间：2018/8/16 15:49:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文本文档.txt |
-- 发布时间：2018/8/16 15:50:00
--
不能直接发代码上了
-- 发布时间：2018/8/16 15:50:00
--
如何合并为，加载子表今天的订单呢？谢谢！
-- 发布时间：2018/8/16 16:25:00
--
以下是引用manyifuwu在2018/8/16 15:50:00的发言：
如何合并为，加载子表今天的订单呢？谢谢！
Dim t As Table = Tables("固定_Table2")
t.Fill("Select * From {派工} Where 编号 = \'" & Tables("成华客户资料").current("编号") & "\' and 调试 = \'" & Date.Today & "\'", "SERVER", False)
Dim width As Double = t.grid.width
Dim sum As Double = 0
For Each c As object In t.grid.cols
If c.visible = True Then
sum += c.widthdisplay
End If
Next
For Each c As object In t.grid.cols
If c.visible = True Then
c.width = c.widthdisplay/sum*width
End If
Next