共4 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]筛选按钮代码
1楼
老有所乐 发表于：2011/9/10 10:24:00
求窗口筛选按钮代码，要求筛选姓名列的重复姓名中的最后一行，如姓名为“张三”的最后一个的第三列是666的张三，但是第三列不作为筛选条件。
谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:筛选重复行的最后一行.table |
2楼
紙上不談兵 发表于：2011/9/10 11:07:00Dim dr As DataRow
Dim Filter As String '设置变量Filter,返回或设置过滤条件表达式
With e.Form.Controls("combobox1") '筛选单位,Controls引用窗口中名为cmbProduct组合框数据
If .Value IsNot Nothing Then '如果cmbProduct框不为空,则执行下面的语句
dr = DataTables("表A").Find("姓名 = '" & .Value & "'","[_Identify] Desc")
If dr IsNot Nothing Then
Filter = "[_Identify]= " & dr("_Identify") '在本表中的单位中查找
End If
If Filter > "" Then '如果筛选条件为空
Tables("表A").Filter = Filter '则不筛选
End If
End If
End With
3楼
czy 发表于：2011/9/10 11:49:00方法很多，用Compute方法返回_Identify列指定姓名的Max进行比较也可以。
4楼
老有所乐 发表于：2011/9/10 14:43:00谢谢二位老师！
共4 条记录, 每页显示 10 条, 页签:
[1]