Dim Cols1() As String = {"日期","单号","供应商","物料编码","货物名称","规格","单位","数量","结算单价","结算金额","会计年度","单据类型"}
Dim Cols2() As String = {"入库日期","单号","供应商","物料编码","货物名称","规格","单位","数量","含税单价","含税金额","会计年度","单据类型"}
For Each dr1 As DataRow In DataTables("已审采购").Select("[选择] = True and [发票凭证] is null")
     Dim dr2 As DataRow = DataTables("采购明细").AddNew()
         dr1("发票凭证") = "进项发票数据采购"
     For i As Integer = 0 To Cols1.Length -1
         dr2(Cols2(i)) = dr1(Cols1(i))
     Next
Next
DataTables("已审销售").Save()
DataTables("采购明细").Save()
DataTables("采购明细").deletefor("[含税金额] Is null OR [含税金额] = 0")

MessageBox.Show("把已选择及发票未核销的数据复制到采购明细了", "提示", MessageBoxButtons.Ok, MessageBoxIcon.Information)

For Each dr1 As DataRow In currenttable.DataTable.Select("[选择] = True and [发票凭证] is null") 

已处理好了

现在是把没有加载都过到采购明细表，我只是想把过滤后的过到采购明细表