主题：求代码

Dim drs As List(Of DataRow)

For Each dr As DataRow in DataTables("收文").DataRows

    If dr.IsNull("文件文号") Then

        Continue For

    End If

    drs = DataTables("收文").Select("文件文号 = '" & dr("文件文号") & "' And 文件题名 = '" & dr("文件题名") & "'")

    If drs.Count > 0 Then

        For i As integer = 1 To drs.Count - 1       

            If drs(i).IsNull("正文") = False Then

                dr("正文") = drs(i)("正文")

            End If

            If drs(i).IsNull("链接地址") = False Then

                dr("链接地址") = drs(i)("链接地址")

            End If

            drs(i)("文件文号") = Nothing

        Next

    End If

Next

DataTables("收文").DeleteFor("文件文号 Is Null")