如以下下表从 CRM_ALL_FOLDERSINFO 满足提交drs中逐行复制到表OM_FOLDERSINFO,针对日期列增加以下判定还是会出现造型错误的问题,请问如何处理?
For Each dr As DataRow In drs
- Dim kr As DataRow = DataTables("OM_FOLDERSINFO").SQLFind("订单号 = '" & dr("订单号") & "' And 是否支付 = 0 ")
If kr Is Nothing Then
Dim pr As DataRow = DataTables("OM_FOLDERSINFO").AddNew
For Each dc As DataCol In DataTables("CRM_ALL_FOLDERSINFO").DataCols
If dc.Name = "订单生成时间" OrElse dc.Name = "预计测试完成时间" OrElse dc.Name = "实际测试完成时间" OrElse dc.Name = "首次销账完成时间" OrElse dc.Name = "末次销账完成时间" OrElse dc.Name = "订单修改时间" Then
If dr.IsNull(dc.Name) Then
pr(dc.Name) = Nothing
Else
pr(dc.Name) = dr(dc.Name)
End If
Else
pr(dc.Name) = dr(dc.Name)
End If
Next
pr("净业绩") = dr("成交总价")
pr("代理金额") = 0
pr("实付金额") = 0
pr("实收业绩") = dr("成交总价")
pr.Save
End if
Next