主题：导入订单明细自动过滤已经导入的项

参考

http://www.foxtable.com/webhelp/scr/0680.htm

http://www.foxtable.com/webhelp/scr/1533.htm

http://www.foxtable.com/webhelp/scr/2137.htm

比如代码

Dim Vals As List(of String())
Vals = DataTables("来源表").GetValues("产品|客户", Tables("导入订单_订单明细表").Filter)
For i As Integer = 0 To Vals.Count - 1
    Dim dr As DataRow = DataTables("接收表").AddNew()
    dr("产品") = Vals(i)(0)
    dr("客户") = Vals(i)(1)
Next

这个意思？

For Each r As Row In Tables("表A").GetCheckedRows
    Dim dr As DataRow = DataTables("接收表").AddNew()
    dr("产品") = r("产品")
    dr("客户") = r("编号")
Next

你窗口的表，是不是副本表？

e.Form.Controls("Table1").Table.Filter = "销售合同编码 = '" & Tables("导入订单_订单表").Current("销售合同编码") & "'"

代码

Dim lz As WinForm.CheckBox = forms("导入订单").Controls("零值")

If lz.Checked = False Then
    Tables("导入订单_订单明细表").Filter = "客户订单号 = '" & Tables("导入订单_订单主表").Current("客户订单号") & "'"
Else
    Dim ns As String = DataTables("出库明细表").GetComboListString("物料编号", "客户订单号 = '" & Tables("导入订单_订单主表").Current("客户订单号") & "'")
    ns = ns.Replace("|", "','")
    Tables("导入订单_订单明细表").Filter = "客户订单号 = '" & Tables("导入订单_订单主表").Current("客户订单号") & "' and  未交数量 <> 0 and 物料编号 not in ('" & ns & "')"
End If

For Each r As Row In Tables("导入订单_订单明细表").Rows
    r.Checked  = True
Next

把你AfterLoad事件的代码改成

    Dim ns As String = DataTables("出库明细表").GetComboListString("物料编号", "客户订单号 = '" & Tables("导入订单_订单主表").Current("客户订单号") & "'")
    ns = ns.Replace("|", "','")
    Tables("导入订单_订单明细表").Filter = "客户订单号 = '" & Tables("导入订单_订单主表").Current("客户订单号") & "' and 物料编号 not in ('" & ns & "')"