If User.Type = UserTypeEnum.Developer Then
    Return
End If

Dim tr As Row = Tables("销售意向客户进度管制").Current
DataTables("销售意向客户进度管制") .DeleteFor("[客户名称] Is Null and [联系地址] Is Null and [联系号码] Is Null and [欲购车型] Is Null and [意向级别] Is Null and [最后联系日期] Is Null and [下次回访日期] Is Null and [最后一次回访情况] Is Null and [备注] Is Null and [客户来源] Is Null and [业务员申请] Is Null")
For Each r As Row In Tables("销售意向客户进度管制")
    For Each cl As col In Tables("销售意向客户进度管制").Cols
        If "客户来源|客户名称|联系号码|欲购车型|意向级别|建档日期|最后联系日期|最后一次回访情况".IndexOf(cl.name) > -1
            If r.Isnull(cl.name) =True Then
                MessageBox.Show(cl.name & "未填写", "提示", MessageBoxButtons.ok, MessageBoxIcon.Information)
                Return
                Exit For
            End If
        End If
    Next
    If _usergroup Like "*销售部"
        If r("业务员申请")= "驳回 修改申请" Or r("业务员申请")= "驳回 删除申请" Or r("业务员申请")= "驳回 战败申请" Or r("业务员申请")= "驳回 战胜申请" Or r("业务员申请")= "驳回 修改申请" Or r("业务员申请")= "批准修改" Or r("业务员申请")= "批准删除" Or r("业务员申请")= "批准战胜" Or r("业务员申请")= "批准战败"  Then
            r("业务员申请")  =""
        End If
    End If
Next

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 = "编号,意向级别,最后联系日期,最后一次回访情况,备注" \'指定数据来源列
    f.DataTable = DataTables("意向客户历史回访情况") \'指定数据接收表
    f.DataCols = "编号,意向级别,最后联系日期,最后一次回访情况,备注" \'指定数据接收列
    f.ExcludeExistValue =True
    f.ExcludeNullValue =False
    f.Distinct =True
    f.Append =True
    f.Fill()
End If

此主题相关图片如下：1.jpg

按字面意思 是这个行已被删除 不能再进行操作，  那要是这样的话  该如何修改这段代码？

看看是不是这段有问题？

If tr IsNot Nothing Then
    If tr.Isnull("客户来源")=False