主题：求助订单交付逐减的代码写法

Dim ls As List(Of String) = DataTables("订单明细_张笑南").GetValues("D2C条码")
For Each ary As String In ls
    Dim sumin As Double = DataTables("采购入库明细").compute("sum(采购入库数量)", "条码 = '" & ary & "'")
    Dim drs As List(Of DataRow) = DataTables("订单明细_张笑南").Select("D2C条码 = '" & ary & "'", "_Identify")
    For i As Integer = 0 To drs.count - 1
        Dim dr As DataRow = drs(i)
        Dim sumout As Double = DataTables("订单明细_张笑南").compute("sum(入库数量)", "D2C条码 = '" & dr("D2C条码") & "' and _Identify < " & dr("_Identify"))
        Dim st As Double = sumin - sumout
        If st >= dr("订单数量") Then
            If i = drs.count - 1 Then
                dr("入库数量") = st
                dr("待交货数量") = dr("订单数量") - dr("入库数量")
            Else
                dr("入库数量") = dr("订单数量")
                dr("待交货数量") = 0
            End If
        Else
            dr("入库数量") = iif(st>=0, st, 0)
            dr("待交货数量") = dr("订单数量") - dr("入库数量")
        End If
    Next
Next

DataTables("订单交付进度表").DataRows.Clear
Dim ls As List(Of String) = DataTables("订单明细").GetValues("D2C条码")
For Each ary As String In ls
    Dim sumin As Double = DataTables("采购入库明细").compute("sum(采购入库数量)", "条码 = '" & ary & "'")
    Dim drs As List(Of DataRow) = DataTables("订单明细").Select("D2C条码 = '" & ary & "'", "_Identify")
    For i As Integer = 0 To drs.count - 1
        Dim dr As DataRow = drs(i)
       
        Dim nr As DataRow = DataTables("订单交付进度表").AddNew
        nr("供应商") = dr("供应商")
        nr("D2C款号") = dr("D2C款号")
        nr("D2C颜色") = dr("颜色")
        nr("订单数量") = dr("订单数量")
        nr("D2C条码") = dr("D2C条码")
        dr = nr
       
        Dim sumout As Double = dr.DataTable.compute("sum(入库数量)", "D2C条码 = '" & dr("D2C条码") & "' and _Identify < " & dr("_Identify"))
        Dim st As Double = sumin - sumout

        If st >= dr("订单数量") Then
            If i = drs.count - 1 Then
                dr("入库数量") = st
                dr("待交货数量") = dr("订单数量") - dr("入库数量")
            Else
                dr("入库数量") = dr("订单数量")
                dr("待交货数量") = 0
            End If
        Else
            dr("入库数量") = iif(st>=0, st, 0)
            dr("待交货数量") = dr("订单数量") - dr("入库数量")
        End If
    Next
Next

全部数据合并到一张表后，参考25楼代码，再统计结果

DataTables("订单交付进度查询表").DataRows.Clear
Dim tnames() As String = {"表1", "表2", "表3"}
for each tname as string in tnames
    Dim drs As List(Of DataRow) = DataTables(tname).Select("", "_Identify")
    For i As Integer = 0 To drs.count - 1
        Dim dr As DataRow = drs(i)
        Dim nr As DataRow = DataTables("订单交付进度查询表").AddNew
        '赋值
    Next
Next

1、http://www.foxtable.com/help/topics/0656.htm

2、http://www.foxtable.com/help/topics/0617.htm

冻结列

http://www.foxtable.com/help/topics/0038.htm

冻结行

Tables("表a").Grid.Rows.Frozen = 5 

赋值单元格，然后粘贴不就行了。

没办法。一个系统做好以后，就不应该能任意增加表。

方法一：导入excel等文件新增表；

方法二：执行代码新增 http://www.foxtable.com/help/topics/2122.htm