Foxtable(狐表) → 用户栏目 → 专家坐堂 → 筛选一个时间段到统计表1


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

主题：筛选一个时间段到统计表1
帅哥哟，离线，有人找我吗？
LTHERO
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：154 积分：1331 威望：0 精华：0 注册：2017/10/8 14:56:00 		筛选一个时间段到统计表1  发帖心情 Post By：2017/10/26 14:32:00 [只看该作者]

筛选时间段到统计表中，然后在通过统计表生成图表！

筛选自定义XY轴文本 如下 ：


Dim Filter As String

Dim a = e.Form.Controls("TextBox1").Text
Dim b = e.Form.Controls("TextBox2").Text


With e.Form.Controls("TextBox1")
    If .value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "[" & a & "] Like '%" & .text & "%'"
    End If
End With

With e.Form.Controls("TextBox2")
    If .value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "[" & b & "] Like '%" & .text & "%'"
    End If
End With

With e.Form.Controls("DateTimePicker1")
    If .value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "记录填写时间 >= '#" & .text & "#'"
    End If
End With

With e.Form.Controls("DateTimePicker2")
    If .value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "记录填写时间 <= '#" & .text & "#'"
    End If
End With

If Filter > "" Then
    Tables("工时").Filter = Filter
End If

Dim t As Table = Tables("工时")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
'g.GroupOn = "姓名"
g.Caption = "{0}"
t.SubtotalGroups.Add(g)
t.Subtotal()

Dim r As Row
For i As Integer = 0 To t.Rows.Count(True) - 1
    r = t.Rows(i,True)
    If r.IsGroup '如果是分组行
        Dim f As String = "[" & a & "] = '" & r("[" & a & "]") & "'"
        Dim v As String = " [" & b & "]:" & t.Compute("Sum([" & b & "])",f)
        r("[" & a & "]") = "[" & a & "]:" & r("[" & a & "]") & v
    End If
Next

Dim b1 As New GroupTableBuilder("统计表1",DataTables("工时"))
b1.Groups.AddDef("[" & a & "]","" & a & "") '添加日期列用于分组,并用"月"代替原名称
b1.Totals.AddDef("[" & b & "]") '添加数量列用于统计
b1.Subtotal = True '生成汇总模式
b1.Build '生成统计表
MainTable = Tables("统计表1") '打开生成的统计表




请帮我加上筛选时间段的代码！试了很久写不出来  谢谢！

注：记录填写时间 只有一列！！
 回到顶部
帅哥哟，离线，有人找我吗？
LTHERO
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：154 积分：1331 威望：0 精华：0 注册：2017/10/8 14:56:00 		  发帖心情 Post By：2017/10/26 14:33:00 [只看该作者]

这是工时表
图片点击可在新窗口打开查看此主题相关图片如下：工时.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
LTHERO
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：154 积分：1331 威望：0 精华：0 注册：2017/10/8 14:56:00 		  发帖心情 Post By：2017/10/26 14:33:00 [只看该作者]

这是柱图页面！
图片点击可在新窗口打开查看此主题相关图片如下：柱图.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
LTHERO
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：154 积分：1331 威望：0 精华：0 注册：2017/10/8 14:56:00 		  发帖心情 Post By：2017/10/26 14:34:00 [只看该作者]

就是先筛选数据到统计表1中，然后再生成图表！

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/10/26 14:42:00 [只看该作者]

Dim Filter As String

Dim a = e.Form.Controls("TextBox1").Text
Dim b = e.Form.Controls("TextBox2").Text


With e.Form.Controls("TextBox1")
    If .value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "[" & a & "] Like '%" & .text & "%'"
    End If
End With

With e.Form.Controls("TextBox2")
    If .value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "[" & b & "] Like '%" & .text & "%'"
    End If
End With

With e.Form.Controls("DateTimePicker1")
    If .value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "记录填写时间 >= #" & .text & "#"
    End If
End With

With e.Form.Controls("DateTimePicker2")
    If .value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "记录填写时间 <= #" & .text & "#"
    End If
End With

If Filter > "" Then
    Tables("工时").Filter = Filter
End If

Dim t As Table = Tables("工时")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
'g.GroupOn = "姓名"
g.Caption = "{0}"
t.SubtotalGroups.Add(g)
t.Subtotal()

Dim r As Row
For i As Integer = 0 To t.Rows.Count(True) - 1
    r = t.Rows(i,True)
    If r.IsGroup '如果是分组行
        Dim f As String = "[" & a & "] = '" & r("[" & a & "]") & "'"
        Dim v As String = " [" & b & "]:" & t.Compute("Sum([" & b & "])",f)
        r("[" & a & "]") = "[" & a & "]:" & r("[" & a & "]") & v
    End If
Next

Dim b1 As New GroupTableBuilder("统计表1",DataTables("工时"))
b1.Groups.AddDef("[" & a & "]","" & a & "") '添加日期列用于分组,并用"月"代替原名称
b1.Totals.AddDef("[" & b & "]") '添加数量列用于统计
b1.Subtotal = True '生成汇总模式
b1.Filter = Filter
b1.Build '生成统计表
MainTable = Tables("统计表1") '打开生成的统计表
 回到顶部
帅哥哟，离线，有人找我吗？
LTHERO
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：154 积分：1331 威望：0 精华：0 注册：2017/10/8 14:56:00 		  发帖心情 Post By：2017/10/26 16:00:00 [只看该作者]

出现这种错误 难道我需要把Double类型 改为字符类型才可以？

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


加好友 发短信
等级：幼狐 帖子：154 积分：1331 威望：0 精华：0 注册：2017/10/8 14:56:00 		  发帖心情 Post By：2017/10/26 16:00:00 [只看该作者]

图片
图片点击可在新窗口打开查看此主题相关图片如下：错误.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/10/26 16:07:00 [只看该作者]

修改

 

With e.Form.Controls("TextBox1")
    If .value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "convert(" & a & ",'System.String') Like '%" & .text & "%'"
    End If
End With

With e.Form.Controls("TextBox2")
    If .value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "convert(" & b & ",'System.String') Like '%" & .text & "%'"
    End If
End With
 回到顶部
帅哥哟，离线，有人找我吗？
LTHERO
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：154 积分：1331 威望：0 精华：0 注册：2017/10/8 14:56:00 		  发帖心情 Post By：2017/10/26 16:11:00 [只看该作者]

这是什么问题呢！
图片点击可在新窗口打开查看此主题相关图片如下：错误1.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
LTHERO
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：154 积分：1331 威望：0 精华：0 注册：2017/10/8 14:56:00 		  发帖心情 Post By：2017/10/26 16:15:00 [只看该作者]

System.DateTime 
是这样用吗
With e.Form.Controls("DateTimePicker1")
    If .value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "convert("工作日期",'System.DateTime') Like '%" & .text & "%'"
    End If
End With
 回到顶部
总数 19 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询