Foxtable(狐表) → 用户栏目 → 专家坐堂 → 不显示某列没有文字的


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

主题：不显示某列没有文字的
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		不显示某列没有文字的  发帖心情 Post By：2015/9/1 21:43:00 [只看该作者]

Dim dd As Date = e.Form.Controls("DateTimePicker2").Value 
Dim y As Integer = dd.Year
Dim w As Integer = dd.DayOfWeek '算出今天是星期几
Dim dt1 As Date = dd.AddDays(-w) '获取本周的第一天
Dim dt2 As Date = dd.AddDays(6 - w) '获取本周的最后一天
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
Tables("计划表窗口_Table8").Filter = Filter

兄弟们 能帮忙看看吗？ 如果在加一个功能  不显示表A “学习科目” 没有内容的 感谢 感谢 
 回到顶部
帅哥哟，离线，有人找我吗？
yan2006l
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：431 积分：3214 威望：0 精华：2 注册：2011/9/10 21:35:00 		  发帖心情 Post By：2015/9/1 23:20:00 [只看该作者]

Dim dd As Date = e.Form.Controls("DateTimePicker2").Value 
Dim y As Integer = dd.Year
Dim w As Integer = dd.DayOfWeek '算出今天是星期几
Dim dt1 As Date = dd.AddDays(-w) '获取本周的第一天
Dim dt2 As Date = dd.AddDays(6 - w) '获取本周的最后一天
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
filter = filter & " and 学习科目 is not null "
Tables("计划表窗口_Table8").Filter = Filter
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2015/9/4 14:53:00 [只看该作者]

如果是在上一周的里面加入不显示表A “学习科目” 没有内容的 感谢 感谢 
Dim s As String = e.Form.Controls("Label13").Text
Dim t1 As Table = e.Form.Controls("Table8").Table
Select s
    Case "本周计划"
        s = "上周计划"
        t1.Filter = "年份 = '" & vars("year") & "'And sys_weekofyear = " & DatePart("ww",Date.Today.AddDays(- 7))
    Case "上周计划"
        s = "第" & Format(DatePart("ww",Date.Today.AddDays(- 14)),"00") & "周计划"
        t1.Filter = "年份 = '" & vars("year") & "'And sys_weekofyear = " & DatePart("ww",Date.Today.AddDays(- 14))
    Case "下周计划"
        s = "本周计划"
        t1.Filter = "年份 = '" & vars("year") & "'And sys_weekofyear = " & DatePart("ww",Date.Today)
    Case Else
        Dim i As String = s.SubString(s.IndexOf("第") + 1,s.IndexOf("周") - s.IndexOf("第") - 1)
        If Val(i) = DatePart("ww",Date.Today) + 1 Then
            s = "本周计划"
            t1.Filter = "年份 = '" & vars("year") & "'And sys_weekofyear = " & DatePart("ww",Date.Today)
        ElseIf Val(i) = DatePart("ww",Date.Today) + 2 Then
            s = "下周计划"
            t1.Filter = "年份 = '" & vars("year") & "'And sys_weekofyear = " & DatePart("ww",Date.Today.AddDays(7))
        Else
            Dim temp As Integer = val(i-1)
            If temp = 0 Then
                vars("year") -= 1
                temp = t1.DataTable.compute("max(sys_weekofyear)", "年份 = '" & vars("year") & "'")
            End If
            s = s.Replace(i,Format(temp,"00"))
            t1.Filter = "年份 = '" & vars("year") & "'And sys_weekofyear = " & temp
        End If
End Select
e.Form.Controls("Label13").Text = s

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/9/4 14:55:00 [只看该作者]

如

 

t1.Filter = "年份 = '" & vars("year") & "'And sys_weekofyear = " & DatePart("ww",Date.Today.AddDays(- 7))

 

改成

 

t1.Filter = "学习科目 is not null  and 年份 = '" & vars("year") & "'And sys_weekofyear = " & DatePart("ww",Date.Today.AddDays(- 7))
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03320 秒, 4 次数据查询