以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  代码提示错误信息  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=94927)
--  作者：feng1999
--  发布时间：2017/1/5 15:09:00
--  代码提示错误信息
代码错误信息提示如下：
详细错误信息：
该字符串未被识别为有效的 DateTime。有一个从索引 10 处开始的未知字。
这是编写的代码，请帮忙查看一下问题出现在哪？谢谢！
Dim nms() As String={"材料代号","起始日期","结束日期"}
Dim sps() As String={"\'","#","#"}
Dim bjf() As String={" = "," >= "," >= "}
Dim fds() As String={"材料代号","日期","日期"}
Dim  Filter As String
For i  As Integer=0 To nms.Length-1
    If  e.Form.Controls(nms(i)).Value IsNot Nothing Then
        If  Filter>"" Then
            Filter=Filter & " And "
        End If
        Filter=Filter & fds(i) & bjf(i) & sps(i) & e.Form.Controls(nms(i)).Value  & sps(i)
    End If
Next
Tables("电解电容").Filter = Filter
--  作者：有点色
--  发布时间：2017/1/5 15:12:00
--  

afterOpenProject事件，短日期

 

Dim cd As System.Globalization.DateTimeFormatInfo = System.Globalization.DateTimeFormatInfo.CurrentInfo
cd.ShortDatePattern = "yyyy年MM月dd日"
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
--  作者：feng1999
--  发布时间：2017/1/5 15:42:00
--  
老师，您好,这样加入之后可以了，能不能解释一下什么意思，没怎么看懂？
--  作者：有点色
--  发布时间：2017/1/5 15:43:00
--  
以下是引用feng1999在2017/1/5 15:42:00的发言：
老师，您好,这样加入之后可以了，能不能解释一下什么意思，没怎么看懂？

 

因为你系统的日期格式是这样的 2017-01-05 15:42:56 星期四，导致引用日期时出错。