时间间隔天数这个,有一段代码内有上传。
'跟踪异常客户自动划转到公海
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
End Select
DataTables("客户管理系统").DeleteFor("资源跟踪_距离最近一次联系时间间隔天数 > 7")
DataTables("客户管理系统").SQLDeleteFor("资源跟踪_距离最近一次联系时间间隔天数 > 7")
另外如果客户名称不重置的话,客户分类能自动计算么老师?
我应该怎样优化一下这个代码使系统快一点?
比如我只对客服分类是意向客户的行进行重置,我代码应该怎样优化?谢谢老师。