Foxtable(狐表) → 用户栏目 → 专家坐堂 → 加载及日期代码错误


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

主题：加载及日期代码错误
帅哥哟，离线，有人找我吗？
weibu
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：659 积分：5357 威望：0 精华：0 注册：2018/5/19 22:27:00 		加载及日期代码错误  发帖心情 Post By：2024/6/18 18:56:00 [只看该作者]

MainTable = Tables("rs_indepot")
Dim dt As Date = Date.Today.AddDays(-450)
Dim dr As DataRow = DataTables("rs_userinfo").find("sname = '" & rsuser & "'")  '找到当前登录者所在的行
Dim filter As String = "1=2"
If dr("position") = "管理者" Then
    Dim drs = DataTables("rs_departinfo").Select("departno like '" & dr("departno") & "%'")
    For Each cdr As DataRow In drs
        Filter &= " or outdepart = '" & cdr("depart") & "'And rstype = '派货'And checkdate >= '" & dt & "'Or checkdate = #01/01/1900#"    ‘老师这段代码是不是有问题？
    Next
    Else If dr("position") = "职员" Then
        Filter = "outdepart = '" & dr("indepart") & "'And rstype = '派货'And checkdate >= '" & dt & "'Or checkdate = #01/01/1900#"
End If
DataTables("rs_indepot").LoadTop = "1000"
DataTables("rs_indepot").LoadOrder = "checkdate DESC"
Tables("rs_indepot").OpenLoadTree("outdepart|checkdate YM|ordercode|proname",200,1000,True,Filter)    ’我为了让数据加载更改高效，在Filter中添加只加载450天内的数据，请问这让是有帮助吗？   我想确认生成加载树并加载数据，添加450天内是否对加载树生成和加载数据效率有提升？
Tables("rs_indepot").Sort = "checkdate DESC"
Forms("派货出库汇总").Open()
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/6/18 20:25:00 [只看该作者]

……
Dim filter As String 
If dr("position") = "管理者" Then
    Dim s As String = DataTables("rs_departinfo").GetComboListString("depart", "departno like '" & dr("departno") & "%'")
        Filter = "outdepart in ('" & s.Replace("|", "','") & "') And rstype = '派货' And (checkdate >= '" & dt & "' Or checkdate is null)" 
Else If dr("position") = "职员" Then
    Filter = "outdepart = '" & dr("indepart") & "'And rstype = '派货' And (checkdate >= '" & dt & "' Or checkdate is null)"
End If
……
 回到顶部
帅哥哟，离线，有人找我吗？
weibu
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：659 积分：5357 威望：0 精华：0 注册：2018/5/19 22:27:00 		  发帖心情 Post By：2024/6/19 8:55:00 [只看该作者]

老师我这样修改后，对应日期为1900-01-01的数据仍然加载不出来。而改为
  Filter = "outdepart in ('" & s.Replace("|", "','") & "') And rstype = '派货' And (checkdate >= '" & dt & "' Or checkdate = #01/01/1900#)" 
又报错“#附件有语法错误，我用的是SQLserver数据库
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


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