主题：劳驾帮忙优化代码

甜老大：劳驾优化代码

Dim t As Table = tb8tb

Dim dt As DataTable = DataTables("物料表")

For i As Integer = cr + 1 To t.Rows.Count - 1

    Dim ndr As DataRow = dt.AddNew

    For Each c As Col In t.Cols

        Dim cname As String = t.Rows(cr)(c.Name)

        If dt.DataCols.Contains(cname) Then

            ndr(cname) = t.Rows(i)(c.Name)

           

        End If

    Next

Next