主题：[求助]不知道哪里出问题了

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 主要想先按人名筛选完毕后，再按时间筛选，可是运行结果只是筛选时间，有好几个人，我这是哪里错了

上传例子测试

报什么错？还是统计结果不正确？

我想先按照人名筛选，然后再按照时间筛选，可是执行之后，只是按照时间筛选，找不出原因

 

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

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

 

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

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

我在窗口中建立了一个combobox,怎么把这个内容提取出来，再进行筛选。比如选择了一个。。。‘’部门一‘’。。。部门一，怎么提取出来进行筛选

 不明白你的意思，上传实例说明。

就是本贴的例子，红大哥你不是说可以在一个窗口中加入人员文本框，进行筛选吗。我加入了以后，怎么知道输入的是谁的名字，进行筛选？代码怎么写

参考

 

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