Dim tb As Table = Tables(e.Form.Name & "_Table2")
Dim dt As DataTable = tb.DataTable

If Vars("Str") = Nothing Then Vars("Str") =  "年份 =\'2018\' and 月份 = \'5\' and 员工编号 in (\'0095\')"

tb.Fill("sel ect * from {出勤汇总} where " & Vars("Str"), "ksg", False)
Vars("Str") = Nothing
tb.Sort = "员工编号,月份,日期"
dt.DataCols.Add("查重",Gettype(String),255,"[员工编号]+[姓名]+[考勤日期]")
tb.SetColVisibleWidth("考勤员|50|部门|50|员工编号|50|姓名|50|年份|50|月份|50|日期|50|班次_上午|50|班次_下午|50|班次_加班1|50|班次_加班2|50|查重|150")

tb.Select(5,tb.Cols("查重").Index)
Syscmd.Filter.ShowSameValues()
If tb.Rows.Count > 1 Then
    MessageBox.Show("有重复数据,不可以保存")
End If

以上这个查找重复的命令没有效果

用这个方法

http://www.foxtable.com/webhelp/scr/2712.htm