差最后一个功能，我的PROJECT 就要完成了 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

从表里面的筛选，不知道是用FOXTABLE现有的菜单就可以，还是要另外写个代码呢？

我想在某个时间段，筛选出某个人，然后求出他的统计项

比如：

2015-03-01 至 2015-03-31 从3月1日（包括3月1日）到 3月31日（包括3月31日）

保洁员（包含）：某某人

这样子

参考帮助时段筛选 http://www.foxtable.com/help/topics/2720.htm

再加入 AND 保洁员='某某' 这个条件就可以了

这个筛选代码写在什么事件呢？

1、筛选 http://www.foxtable.com/help/topics/1058.htm

2、统计的话，具体什么统计，你参考开发指南->统计与查询

TIAN 老师，终于做到最后一步，帮我看下出现的问题

做了一个简单的筛选，出现错误：

.NET Framework 版本：2.0.50727.5485

Foxtable 版本：2014.11.11.1

错误所在事件：派工表,CurrentChanged

详细错误信息：

未将对象引用设置到对象的实例。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

If Forms("历史服务").Opened Then
    With DataTables("派工表")
        Dim r As Row = e.Table.Current
        If r IsNot Nothing Then
            Dim s As String = "客户信息 like '" & r("客户信息").split(" ")(0) & "%'"
            If r.Isnull("客户信息") Then s = "1=2"
            Dim drs As List(Of DataRow) = e.Table.DataTable.Select(s & " And _Identify <> " & r("_Identify") & " And 日期 <= #" & r("日期") & "#", "日期 Desc")
            If drs.Count > 0 Then
                Forms("历史服务").Controls("TextBox1").Text = drs(0)("客户信息")
                Forms("历史服务").Controls("TextBox2").Text = drs(0)("服务内容")
                Forms("历史服务").Controls("TextBox3").Text = drs(0)("日期")
                Forms("历史服务").Controls("TextBox8").Text = drs(0)("备注")
            Else
                Forms("历史服务").Controls("TextBox2").Text = Nothing
                Forms("历史服务").Controls("TextBox3").Text = Nothing
                Forms("历史服务").Controls("TextBox1").Text = Nothing
                Forms("历史服务").Controls("TextBox8").Text = Nothing
            End If
            If drs.Count > 1 Then
                Forms("历史服务").Controls("TextBox4").Text = drs(1)("服务内容")
                Forms("历史服务").Controls("TextBox5").Text = drs(1)("日期")
            Else
                Forms("历史服务").Controls("TextBox4").Text = Nothing
                Forms("历史服务").Controls("TextBox5").Text = Nothing
            End If
            If drs.Count > 2 Then
                Forms("历史服务").Controls("TextBox6").Text = drs(2)("服务内容")
                Forms("历史服务").Controls("TextBox7").Text = drs(2)("日期")
            Else
                Forms("历史服务").Controls("TextBox6").Text = Nothing
                Forms("历史服务").Controls("TextBox7").Text = Nothing
            End If
        End If
    End With
    If E.Table.Current Is Nothing Then
        Forms("历史服务").Controls("TextBox8").Text = Nothing
        Forms("历史服务").Controls("TextBox1").Text = Nothing
        Forms("历史服务").Controls("TextBox9").Text = Nothing
    Else
        Forms("历史服务").Controls("TextBox1").Text = e.Table.current("客户信息")
        Forms("历史服务").Controls("TextBox8").Text = e.Table.current("备注")
        Forms("历史服务").Controls("TextBox9").Text = e.Table.current("签约终止日")
    End If
End If

筛选代码

Dim Filter As String
With e.Form.Controls("ComboBox1")
    If .Value IsNot Nothing Then
        Filter = "保洁员 like '%" & .Value & "%'"
    End If
End With
With e.Form.Controls("DateTimePicker1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("DateTimePicker2")
    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

是保洁员服务明细那个窗口，我做的筛选，代码有点儿不正确，帮我看下哦

此主题相关图片如下：qq图片20150315163421.png

主题：差最后一个功能，我的PROJECT 就要完成了