重置列或者在项目代码中设置重置列代码系统接近司机状态 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.DataCol.Name
    Case "资源跟踪_距离最近一次联系时间间隔天数"
        If e.NewValue > 7 Then
            Dim nmsKHK() As String = {"客户信息_客户名称","客户信息_所属行业","客户信息_主营产品","客户信息_省份或直辖市","客户信息_市","客户信息_经营地址","客户信息_社会统一信用代码","客户信息_法人代表","客户信息_联系人","客户信息_联系电话","客户信息_客户来源","资源位置_库主姓名","客户信息_客户建档日期","资源位置_分支机构"}
            Dim nmsYCK() As String = {"客户信息_客户名称","客户信息_所属行业","客户信息_主营产品","客户信息_省份或直辖市","客户信息_市","客户信息_经营地址","客户信息_社会统一信用代码","客户信息_法人代表","客户信息_联系人","客户信息_联系电话","客户信息_客户来源","原资源位置_库主姓名","客户信息_客户建档日期","原资源位置_分支机构"}
            Dim dr As DataRow = DataTables("异常跟踪资源库").AddNew
            For i As Integer = 0 To nmsKHK.Length - 1
                dr(nmsYCK(i)) = e.DataRow(nmsKHK(i))
           Next
        End If

这种代码放在外面，所有单元格数据更改都会触发，没有必要。建议不要放到表事件里，再说完全没有必要频繁删除数据，项目打开后删除一次即可

DataTables("客户管理系统").DeleteFor("资源跟踪_距离最近一次联系时间间隔天数 > 7")
DataTables("客户管理系统").SQLDeleteFor("资源跟踪_距离最近一次联系时间间隔天数 > 7")
End Select

主题：重置列或者在项目代码中设置重置列代码系统接近司机状态