主题：[求助]请教一个自动判定的代码

请各位大神帮忙实现一个工作分配自动判断的功能。

在表B的工作分配人员里，每一项工作会分配多个人，"，"隔开的，希望在勾选之后表A的人员表里会自动在被选的人里填写已分配工作，且在后面的字段里填写进分配的工作内容。

谢谢各位了。

此主题相关图片如下：表b.jpg

此主题相关图片如下：表a.jpg

附件是项目文件

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:工作分配.table

命令窗口执行：

For Each dr1 As DataRow In DataTables("表A").datarows
    Dim nm As String = dr1("姓名")
    Dim dr2 As DataRow = DataTables("表B").Find("分配人员 = '" & nm & "' Or 分配人员 Like '" & nm & ",*' Or 分配人员 Like '*," & nm & "'")
    If dr2 IsNot Nothing Then
            dr1("是否分配工作") = "是"
    End If
Next

或者做个按钮，将这个代码写在按钮中，需要更新的时候，单击这个按钮。

或者将代码写在MainTableChanged事件中：

If MainTable.Name = "表B" Then

    原来的代码

End if

If e.DataCol.Name = "分配人员" Then
    For Each dr1 As DataRow In DataTables("表A").datarows
        Dim nm As String = dr1("姓名")
        Dim dr2 As DataRow = DataTables("表B").Find("分配人员 = '" & nm & "' Or 分配人员 Like '" & nm & ",*' Or 分配人员 Like '*," & nm & "'")
        If dr2 IsNot Nothing Then
            dr1("是否分配工作") = "是"
        Else
            dr1("是否分配工作") = Nothing
        End If
    Next
End If