Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码错误


  共有1527人关注过本帖树形打印复制链接

主题：代码错误
美女呀，离线，留言给我吧！
cocodingding
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：22 积分：229 威望：0 精华：0 注册：2016/12/6 23:47:00 		代码错误  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：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
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：22 积分：229 威望：0 精华：0 注册：2016/12/6 23:47:00 		  发帖心情 Post By：2016/12/11 20:29:00 [只看该作者]

大神，这是剪贴的教材上的筛选。怎么都执行不了

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106665 积分：542508 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/12/12 8:29:00 [只看该作者]

操作系统的日期格式不是标准的格式，要么改系统的日期格式，要么按照2楼的方式处理一下。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 4 次数据查询