主题：[求助]关于主表与关联表保存的问题！

If Tables("销售意向客户进度管制").Position > 0 Then

    If tr.Isnull("客户来源")=False And tr.Isnull("客户名称")=False And tr.Isnull("联系号码")=False And tr.Isnull("欲购车型")=False  And tr.Isnull("意向级别")=False And tr.Isnull("最后联系日期")=False And tr.Isnull("最后一次回访情况")=False Then

        Dim f As New Filler

        f.SourceTable = DataTables("销售意向客户进度管制") '指定数据来源

        f.SourceCols = ""_Identify,意向级别,最后联系日期,最后一次回访情况,备注" '指定数据来源列

        f.DataTable = DataTables("意向客户历史回访情况") '指定数据接收表

        f.DataCols = "编号,意向级别,最后联系日期,最后一次回访情况,备注" '指定数据接收列

        f.ExcludeExistValue =True

        f.ExcludeNullValue =False

        f.Distinct =True

        f.Append =True

        f.Fill()

    End If

End If