主题：[求助]多条记录复制问题

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("标记年代") = 2018
Next

代码你测试过才知道

systemready = false
Dim dt As DataTable = DataTables("表A")
dt.ResumeRedraw
dt.StopRedraw
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("标记年代") = 2018
Next
dt.ResumeRedraw
systemready = True

如果要用sql语句处理，这样写，如

insert into {表A} (第一列, 第二列, 第三列) select 第一列, 第二列, '2018' from {表A} where 第三列 = '2017'