Dim t As Table = Tables("Manufacture Management_Demand_Details")
Dim tb As Table = Tables("Manufacture Management_Order_Details")
Dim s As String

With tb
    \'    .Cols("OrderNumber").Caption = "订单号码"
    .Cols("SubNumber").Caption = "生产编号"
    .Cols("ValveModel").Caption = "阀门型号"
    .Cols("ValveNumber").Caption = "阀门编号"
    .Cols("MaterialNumber").Caption = "物料编号"
    .Cols("DrawingNumbers").Caption = "阀门图号"
    .Cols("ProductionStatus").Caption = "生产状态"
    .Cols("Quantity").Caption = "数量"
    .Cols("Verify").Caption = "审核"
    .BuildHeader()
    .SetColVisibleWidth("SubNumber|120|ValveModel|240|MaterialNumber|80|DrawingNumbers|70|ValveNumber|120|Quantity|60|ProductionStatus|70|Verify|60")
End With
For Each cl As Col In tb.Cols
    cl.TextAlign = TextAlignEnum.Center
Next
tb.ListMode = True
tb.DataTable.SysStyles("CurrentRow").BackColor = Color.LawnGreen
tb.Sort = "ProductionStatus,Verify,OrderNumber DESC"

With t
    .Cols("OrderNumber").Caption = "订单号码"
    .Cols("ValveModel").Caption = "阀门型号"
    .Cols("ValveNumber").Caption = "阀门编号"
    .Cols("ValveParts").Caption = "阀门零件"
    .Cols("MaterialNumber").Caption = "零件编号"
    .Cols("DrawingNumbers").Caption = "图号"
    .Cols("EachNumber").Caption = "单位数量"
    .Cols("Quantity").Caption = "生产数量"
    .Cols("Remark").Caption = "备注"
    .Cols("EditDate").Caption = "修改时间"
    .BuildHeader()
    .SetColVisibleWidth("ValveParts|230|MaterialNumber|80|DrawingNumbers|70|EachNumber|70|Quantity|60|Remark|120|EditDate|110")
End With
For Each cl As Col In t.Cols
    cl.TextAlign = TextAlignEnum.Center
Next
t.ListMode = True
t.DataTable.SysStyles("CurrentRow").BackColor = Color.LawnGreen
t.DataTable.DataCols("EditDate").SetDateTimeFormat(DateTimeFormatEnum.DateTime)

With tb
    If .Current Is Nothing Then
        Return
    Else
        s = "select * from {Demand_Details} where SubNumber = " &  "\'" & .Current("SubNumber") & "\'"
        t.DataTable.sqlload(s)
        t.Sort = "_SortKey"
    End If
End With