以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  代码错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=93930)
--  作者：cocodingding
--  发布时间：2016/12/10 21:03:00
--  代码错误

显示错误信息：“字符串未被识别为有效的 DateTime。有一个从索引 9 处开始的未知字”。
前面的筛选OK，时间不能运行


Dim Filter As String
With e.Form.Controls("产品")
    If .Value IsNot Nothing Then
        Filter = "产品 = \'" & .Value & "\'"
    End If
End With
With e.Form.Controls("业务员")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "业务员= \'" & .Value & "\'"
    End If
End With
With e.Form.Controls("业务员上级")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "业务员上级= \'" & .Value & "\'"
    End If
End With
With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "订单日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("EndDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "订单日期 <= #" & .Value & "#"
    End If
End With
If Filter > "" Then
    Tables("订单明细表").Filter = Filter
End If
--  作者：有点色
--  发布时间：2016/12/11 10:57:00
--  

AfterOpenProject事件或beforeOpenProject事件

 


Dim cd As System.Globalization.DateTimeFormatInfo = System.Globalization.DateTimeFormatInfo.CurrentInfo


Dim DateInfo As System.Reflection.FieldInfo = cd.Gettype.GetField("generalLongTimePattern", System.Reflection.BindingFlags.NonPublic Or System.Reflection.BindingFlags.Instance)


If  DateInfo IsNot Nothing Then
    DateInfo.SetValue(cd, "yyyy-MM-dd HH:mm:ss")
End If
--  作者：cocodingding
--  发布时间：2016/12/11 20:29:00
--  
大神，这是剪贴的教材上的筛选。怎么都执行不了
--  作者：有点蓝
--  发布时间：2016/12/12 8:29:00
--  
操作系统的日期格式不是标准的格式，要么改系统的日期格式，要么按照2楼的方式处理一下。