主题：对比问题

Dim r = Tables("出差记录").Current

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

如果写到datacolchanged事件，代码这样测试。

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

那就改成

    msgbox(456)   
    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

''' 
    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