主题：[求助]求一段选择核销订单的代码

有二个表，订单主表及订单明细表，通过“订单号”关联。

现要进行订单主表中的“订单”核销。

条件：该订单号中所有订单明细中的“未交数量”都为0

请看“订单核销”窗口，能否把“待核销”的按钮功能编写为需要核销的订单记录的复选框为选择状态。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:订单批量核销.table

我重新上传了例子，补充了“已交数量”的数据。这样，现在有些订单的所有明细项中，“未交数量”已为“0”

如订单号为：400800、5555、656565。

我要在“订单核销”窗口，通过“待核销”的按钮，把这些待核销的订单记录的复选框显示为选择状态。

因下午没条件用电脑，晚上测试了代码，觉得存在二个不足:

1."待核销"按钮代码只能处理当前行，而不能处理整订单主表。

2.用.Compute("sum(未交数量)","客户订单号='" & Tables("订单主表").current("客户订单号") & "'") = 0 

  为条件有BUG.如订单明细有二项产品，一项未交数量为20，另一项未交数量为-20（即该产品多送了20，实际有该情况）。

  这时就存在问题了。

还能改进吗？

我现在把“待核销”按钮代码修改如下，经测试可以选择订单明细中已送货完毕的订单。请问有问题吗：

Dim drs As List(Of DataRow)
If Tables("订单主表").Rows.Count > 0 Then
    Tables("订单主表.订单明细表").StopRedraw
    For Each r1 As Row In Tables("订单主表").Rows   '遍历表
        r1.Checked = True                                 '先设置复选框为选中
        drs = DataTables("订单明细表").Select("客户订单号='" & r1("客户订单号") & "'" )
       
        For Each dr As DataRow In drs
            If dr("未交数量") <> 0 Then
                r1.Checked = False
                Exit For                          ‘只要有一项不为0，即取消复选框
            End If
        Next
    Next
End If
Tables("订单主表.订单明细表").ResumeRedraw

按钮代码如下

For Each r As Row In Tables("订单主表").GetCheckedRows
    If DataTables("订单明细表").Compute("sum(未交数量)","客户订单号='" & r("客户订单号") & "'") <= 0 Then
        r("是否核销")=True
    Else
        r("是否核销")=False
    End If
Next