主题：排除重复值

Dim nums As new List(of String)

Dim Vals As List(of String())

Vals = dt.GetValues("日期|产品编号|产品大类|产品二类|产品三类|产品名称|规格型号|计量单位|需求数量|生产部门|成本项目")

For i As Integer = 0 To Vals.Count - 1

    If nums.Contains(Vals(i)(1)) Then Continue For

    Dim dr As DataRow = DataTables("半成品定额领料").AddNew()

    dr("日期") = Vals(i)(1)

    dr("存货编码") = Vals(i)(0)

    dr("存货大类") = Vals(i)(2)

    dr("存货二类") = Vals(i)(3)

    dr("存货三类") = Vals(i)(4)

    dr("存货名称") = Vals(i)(5)

    dr("规格型号") = Vals(i)(6)

    dr("单位") = Vals(i)(7)

    dr("需求数量") = Vals(i)(8)

    dr("领用部门") = Vals(i)(9)

    dr("成本项目") = Vals(i)(10)

    nums.Add(Vals(i)(1)) 

Next