主题：关于窗口中的表用数据填充器时过滤条件设定问题。

呵呵， 这个代码你写得有点离谱，Fill是批量填充数据的，不适合这种情况使用。

应该：

For Each r1 As Row In Tables("ERP订单查询_Table1").GetCheckedRows
      Dim r2 As Row  = Tables("订单需求情况录入表").AddNew()
      r2(“成品名称”) = r1("材料名称")
Next

你可以自己写代码判断要添加的值是否已经存在的啊:  

 

For Each r1 As Row In Tables("ERP订单查询_Table1").GetCheckedRows

      If  DataTables("订单需求情况录入表").Find("成品名称 = '" & r1("材料名称") = & "'") Is Nothing Then
           Dim r2 As Row  = Tables("订单需求情况录入表").AddNew()
           r2(“成品名称”) = r1("材料名称")
      End If
Next

 

 

Dim lst As  New List(of String)
For Each r1 As Row In Tables("ERP订单查询_Table1").GetCheckedRows
          dim v as String = r1("材料名称")
          if lst.Contains(v) = False Then
                Dim r2 As Row  = Tables("订单需求情况录入表").AddNew()
                r2(“成品名称”) = v
                lst.Add(v)
         End If
Next