主题：对比问题

老师您好，经我测试，只是“出差人”列填写一个人时可以判断正确，2人以上本来有符合条件的人也进入不到

 If dr IsNot Nothing Then
            msgbox("不产生住宿费")
        End If

 

出差人列中的人名中间用“、”分开。

请上传具体实例说明

老师，系统有点大，不方便上传。我再描述一下吧。

有两个表，其中表“出差记录”是这样的：

 

出差人	出差日期	出差地点	天数	事由	..	...	...
张三、李四	.....	小坝城区	2	...
王五、李七、张四、邓一	.....	银川	0.5	...	....	....	...
马八	......	天津	1	...	...	...	....
康四	...	小坝城区	0.5	..	...	..	...

 

第二个表：职工信息总表

 

姓名	.....	....	小坝住房
张三			有
李四			无
马八			有
王五			有
康四			有
李七			无
邓一			无
...			...
...			...
...			...
...			...

 

想出差表的新增记录信息填写完后，系统自动做一个判断，拿“出差记录”表中出差人列的每一个人与“职工信息总表”中的姓名列每个人做对比，如果有家在小坝城区居住并超过0.5天的，就要提醒不产生补助。

出差人列的取值列就是职工信息总表的姓名列，如果能从出差人列输入时解决问题也行。

麻烦老师了，谢谢。

''' 
    If  e.DataRow("出差地点") Like "*小坝*"  And e.DataRow("出差天数") > 0.5       
        msgbox(789)
        Dim dr As DataRow = DataTables("职工信息总表").Find("小坝住房 = True and 姓名 in ('" & e.DataRow("出差人").replace("、","','") & "')")
        If dr IsNot Nothing Then
            msgbox("不产生住宿费")
        End If
    End If

 

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

 

老师，问题圆满解决。谢谢了。但能不能知道比对出的是哪个人呢。

那就需要把“出差记录”里面的每个出差人提取法出来，然后逐个人到职工信息总表里查询判断

 

分割数据出来，查找

 

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