- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 差最后一个功能，我的PROJECT 就要完成了 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65242)
-- 发布时间：2015/3/12 11:49:00
-- 差最后一个功能，我的PROJECT 就要完成了
从表里面的筛选， 不知道是用FOXTABLE现有的菜单就可以，还是要另外写个代码呢？
我想在某个时间段，筛选出某个人，然后求出他的统计项
比如：
2015-03-01 至 2015-03-31 从3月1日（包括3月1日） 到 3月31日 （包括3月31日 ）
保洁员 （包含） ： 某某人
这样子
-- 发布时间：2015/3/12 11:51:00
--
参考帮助时段筛选 http://www.foxtable.com/help/topics/2720.htm
再加入 AND 保洁员=\'某某\' 这个条件就可以了
-- 发布时间：2015/3/12 11:53:00
--
这个筛选代码写在什么事件呢？
-- 发布时间：2015/3/12 11:54:00
--
1、筛选 http://www.foxtable.com/help/topics/1058.htm
2、统计的话，具体什么统计，你参考 开发指南->统计与查询
-- 发布时间：2015/3/15 16:28:00
--
TIAN 老师，终于做到最后一步，帮我看下出现的问题
做了一个简单的筛选，出现错误：
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.11.11.1
错误所在事件：派工表,CurrentChanged
详细错误信息：
未将对象引用设置到对象的实例。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2015/3/15 16:32:00
--
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
-- 发布时间：2015/3/15 16:34:00
--
筛选代码
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
-- 发布时间：2015/3/15 16:35:00
--
是 保洁员服务明细 那个窗口，我做的筛选，代码有点儿不正确，帮我看下哦
此主题相关图片如下：qq图片20150315163421.png
-- 发布时间：2015/3/15 16:36:00
--
看7楼
-- 发布时间：2015/3/15 16:40:00
--
搞定，谢谢噻