主题：查找并自动插入和变化

参考代码

For Each tf As String In DataTables("表A").GetValues("第四列", "第四列 is not null")
    Dim drs As List(Of DataRow) = DataTables("表A").Select("第四列 = '" & tf & "'", "_Sortkey")
    Dim ldr As DataRow = drs(drs.count-1)
    If ldr("第六列") <> "|" Then
        Dim ndr As DataRow = DataTables("表A").AddNew
        ndr("第四列") = ldr("第四列")
        ndr("第一列") = ldr("第一列")
        ndr("第六列") = "|"
        ndr("第七列") = drs.count+1
        ndr.baserow("_sortkey") = ldr("_sortkey") + 0.01
    End If
    For i As Integer = 0 To drs.count-1
        drs(i)("第七列") = i+1
    Next
Next

参考代码

Dim dt As DataTable = DataTables("工程和工时")
dt.StopRedraw
For Each tf As String In dt.GetValues("图番", "图番 is not null")
    Dim drs As List(Of DataRow) = dt.Select("图番 = '" & tf & "'", "_Sortkey")
    Dim ldr As DataRow = drs(drs.count-1)
    If ldr("工程") <> "|" Then
        Dim ndr As DataRow = dt.AddNew
        For Each dc As DataCol In dt.DataCols
            If dc.Expression = "" Then
                ndr(dc.name) = ldr(dc.name)
            End If
        Next
        ndr("工程") = "|"
        ndr("工序序号") = drs.count+1
        ndr.baserow("_sortkey") = ldr("_sortkey") + 0.01
    End If
    For i As Integer = 0 To drs.count-1
        drs(i)("工序序号") = i+1
    Next
Next
dt.ResumeRedraw