If MainTable.Name = "库存" Then DataTables("库存").DataRows.clear() Dim Arys As List(Of String()) Arys = DataTables("入库").GetValues("单位|产品") For Each ary() As String In arys Dim dr As DataRow = DataTables("库存").addnew() dr("单位") = Ary(0) dr("产品") = Ary(1) Next End If