主题：[求助]进销存入库窗口点审核条件填充代码不知道怎么写

你可以看一下这个：

 

http://help.foxtable.com/topics/1533.htm

 

这样就两个表都排除了：
 
Dim Vals As List(of String())
Vals = DataTables("来源表").GetUniqueValues("","产品","客户")
For i As Integer = 0 To Vals.Count - 1
    if DataTables("接收表").Find("产品 = '" & Vals(i)(0) &"' And 客户 = '" & Vals(i)(1) & "'") Is Nothing Then
          Dim dr As DataRow = DataTables("接收表").AddNew()
          dr("产品") = Vals(i)(0)
          dr("客户") = Vals(i)(1)
    End If
Next