以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]不知道哪里出问题了  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84989)

--  作者:luckier
--  发布时间:2016/5/14 19:50:00
--  [求助]不知道哪里出问题了
Current Table.Select(0,1) \'移动到姓名列 Syscmd.Filter.Equal() Forms("人员查找").show Dim Filter As String With e.Form.Controls("StartDate") If .Value IsNot Nothing Then If Filter > "" Then Filter = Filter & " And " End If Filter = Filter & "日期 >= #" & .Value & "#" End If End With With e.Form.Controls("EndDate") If .Value IsNot Nothing Then If Filter > "" Then Filter = Filter & " And " End If Filter = Filter & "日期 < #" & .Value.AddDAys(1) & "#" End If End With Tables("人员信息").Filter = Filter Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1") txt.Value=Tables("病患信息").Rows.Count Dim Sum As Double=Taables("人员信息").comput("sum(离开天数)") txt2.Value=Sum 主要想先按人名筛选完毕后,再按时间筛选,可是运行结果只是筛选时间,有好几个人,我这是哪里错了
--  作者:Hyphen
--  发布时间:2016/5/15 13:45:00
--  
上传例子测试
--  作者:大红袍
--  发布时间:2016/5/15 22:33:00
--  
报什么错?还是统计结果不正确?
--  作者:luckier
--  发布时间:2016/5/16 8:07:00
--  
我想先按照人名筛选,然后再按照时间筛选,可是执行之后,只是按照时间筛选,找不出原因
--  作者:大红袍
--  发布时间:2016/5/16 9:22:00
--  
以下是引用luckier在2016/5/16 8:07:00的发言:
我想先按照人名筛选,然后再按照时间筛选,可是执行之后,只是按照时间筛选,找不出原因

 

你为什么不直接在窗口里面,加入人员的文本框,直接在那里填写以后再筛选?


--  作者:大红袍
--  发布时间:2016/5/16 9:24:00
--  

 如果需要在原来的基础上再筛选,改一下代码

 

Dim f As String = Tables("人员信息").Filter

Tables("人员信息").Filter = iif(f > "", "(" & f & ") and (" & filter & ")", filter)


--  作者:luckier
--  发布时间:2016/5/18 11:05:00
--  
我在窗口中建立了一个combobox,怎么把这个内容提取出来,再进行筛选。比如选择了一个。。。‘’部门一‘’。。。部门一,怎么提取出来进行筛选
--  作者:大红袍
--  发布时间:2016/5/18 11:06:00
--  
 不明白你的意思,上传实例说明。
--  作者:luckier
--  发布时间:2016/5/18 11:17:00
--  
就是本贴的例子,红大哥你不是说可以在一个窗口中加入人员文本框,进行筛选吗。我加入了以后,怎么知道输入的是谁的名字,进行筛选?代码怎么写
--  作者:大红袍
--  发布时间:2016/5/18 11:19:00
--  

参考

 

http://www.foxtable.com/help/topics/1058.htm