主题：求代码

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")

有没有[]都可以的，看自己习惯。

实际上是这样的，集合的编号都是从0开始的，但是这里我们始终保留第一行，也就是编号为0的那一行，然后从第二行（编号为1）开始，检查有关列的内容，将有效内容复制到第一行(编号为0)，并将第二行开始的所有行的文件文号内容清除。

最后删除所有文件问号内容为空的行，从而实现了相同内容只保留一行的目的。

我建议楼主先细细地多看几次帮助。

呵呵，王婆卖瓜一下，我觉得foxtable的帮助是很优秀的。
但是心急喝不得热烫，两个月能够做到这样已经不错了，楼主继续努力，记住熟能生巧。

做成一个按钮，在按钮的Click事件输入。
建议先看帮助。