子表加载的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下是引用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

主题：子表加载的问题