以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  日期列造型错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=178796)
--  作者：benwong2013
--  发布时间：2022/7/21 9:54:00
--  日期列造型错误
如以下下表从 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
--  作者：有点蓝
--  发布时间：2022/7/21 9:55:00
--  
1、来源表数据本身就有问题。
2、更新Foxtable到最新版
--  作者：newsun2k
--  发布时间：2022/7/21 10:27:00
--  
之前遇上这种错误都是说修改系统的日期格式。
更新到最新版，意思是最新版已经解决这个问题了？
--  作者：rogen
--  发布时间：2022/7/21 10:30:00
--  
是不是你的系统日期格式改为了带星期的？
--  作者：newsun2k
--  发布时间：2022/7/21 10:53:00
--  
是的啊，谁能限制用户的日期格式？如果能从源头解决肯定最好了。
--  作者：有点蓝
--  发布时间：2022/7/21 11:25:00
--  
以下是引用newsun2k在2022/7/21 10:53:00的发言：
是的啊，谁能限制用户的日期格式？如果能从源头解决肯定最好了。

自己使用代码控制：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=93429