Dim dt As DataTable = DataTables("表A")For Each dr As DataRow In dt.Select("标记年代 = '2017'") Dim ndr As DataRow = dt.AddNew For Each dc As DataCol In dt.DataCols ndr(dc.name) = dr(dc.name) Next ndr("标记年代") = 2018Next