[求助]窗口录入人员姓名时筛选与表中已有姓名是否重复的请教 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师好，做一个差旅费管理的系统，需要防止录入出差人员时作假多领差旅费，例如李光明和同事3月15日至22日在甲地出差，差旅费已在系统录入并报销，他另外几个同事3月17日至26日在乙地出差，但在乙地出差的同事为了多领出差补助，把李光明也写到乙地出差的人员名单中了。我想在录入窗口录入时就自动筛选出来，然后弹出一个提示框，可是不会做，试了多次也搞不定，请老师指点。

此主题相关图片如下：360截图20230522124055091.jpg

此主题相关图片如下：360截图20230522124225684.jpg

[此贴子已经被作者于2023/5/22 13:33:41编辑过]

有点蓝老师好，尝试着用Select、like等方式，但都不行，完全不得要领，不知道该怎么做了，麻烦您指点一下，谢谢

我结合着上面的两个图说，第一个图中，李光明于3月15日至22日在甲地出差，并且已经录入差旅费管理系统，姓名登记在表中了。第二个图，他同事于3月17日至26日在乙地出差，回来后他同事登录管理系统，在录入窗口把李光明的名字录入了，我想实现的目的是，当他同事在出发日期填入3月17日后，触发窗口控件事件，弹出提醒窗口，提示李光明不可能于3月15日至22日在甲地出差，又于3月17日至26日到乙地出差。

[此贴子已经被作者于2023/5/22 13:55:10编辑过]

老师好，不好意思，还得麻烦您。下面是我参照您写的指点写的代码，但这里有一个问题，比如上面的表中有个人叫李四，我在窗口中录入“李四林”时，也弹出提醒，能不能请麻烦您改一下？谢谢

For Each s As String In e.form.controls("出差人姓名").text.split(",")

If DataTables("差旅费统计表").find("','+出差人姓名+',' like '," & s & ",' and 返回日期 >#" & e.form.controls("出发日期").value & "# and 出发日期 <#" & e.form.controls("返回日期").value & "#") IsNot Nothing Then

If MessageBox.Show("有出差人员与以前记录重复","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)=DialogResult.OK Then

Tables("差旅费统计表").current("出差人姓名") = Nothing

Tables("差旅费统计表").current("出差人数") = Nothing

End If

ElseIf DataTables("差旅费统计表").find("','+出差人姓名+',' like '," & s & ",' and 返回日期 =#" & e.form.controls("出发日期").value & "#") IsNot Nothing Then

If MessageBox.Show("有出差人员同日一返一出,请核减出差补助","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)=DialogResult.OK Then

End If

ElseIf DataTables("差旅费统计表").find("','+出差人姓名+',' like '," & s & ",' and 出发日期 =#" & e.form.controls("返回日期").value & "#") IsNot Nothing Then

If MessageBox.Show("有出差人员同日一返一出,请核减出差补助","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)=DialogResult.OK Then

End If

[此贴子已经被作者于2023/5/28 1:13:07编辑过]

主题：[求助]窗口录入人员姓名时筛选与表中已有姓名是否重复的请教