代码，如下。

Dim t As Table = Tables("市场跟踪表")
Dim dt As DataTable = DataTables("设计部客户跟踪表")
For Each r As Row In t.Rows
    If r("导出") <> True Then
        Dim cs() As String = {"操作日期","编号","日期","客户姓名","电话","地址","区域","性质","市场部","结构","设计部","备注"}
        Dim filter As String = "客户姓名 = \'" & r("客户姓名") & "\' and 电话 = \'" & r("电话") & "\' and 地址 = \'" & r("地址") & "\'"
        If dt.Find(filter) Is Nothing Then
            Dim ndr As DataRow = dt.addnew
            For Each c As String In cs
                ndr(c) = r(c)              
            Next
            r("导出") = True
        End If    
    End If
Next

 开发指南->编程基础

 开发指南->foxtable编程