主题：子表加载的问题

如何合并为，加载子表今天的订单呢？谢谢！

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