主题：不同表之间联动的技巧问题求助？

 第三点，是无法做到的。

 筛选、排序可以做，统计等等都不能做。

第三点，是无法做到的。

如果做筛选，去 AfterFilter 事件写代码

Tables("信息备注表").Filter = e.Table.Filter

如果做排序，去 AfterSort 事件写代码

Tables("信息备注表").Sort = e.Table.Sort

Datacolchanged事件，代码改一下

Select Case e.DataCol.name
    Case "编号"
        Dim dr As DataRow
        If e.OldValue Is Nothing Then
            dr = DataTables("信息备注表").AddNew()
            dr("编号") = e.DataRow("编号")
            dr("客户姓名") = e.DataRow("客户姓名")
            dr("联系电话") = e.DataRow("联系电话")
        Else
            dr = DataTables("信息备注表").Find("编号 = " & e.OldValue & "")
            If dr Is Nothing Then
                dr = DataTables("信息备注表").AddNew()
                dr("编号") = e.DataRow("编号")
                dr("客户姓名") = e.DataRow("客户姓名")
                dr("联系电话") = e.DataRow("联系电话")
            Else
                dr("编号") = e.DataRow("编号")
            End If
        End If
    Case "客户姓名","联系电话"
        Dim dr As DataRow = DataTables("信息备注表").Find("编号 = " & e.DataRow("编号") & "")
        If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
End Select

 测试没有问题，有问题，上传你现在的例子