主题：如何实现关联

请我各位大神，如何在第一张表的列勾选姓名了之后，第二张表的列会自动改为值班

此主题相关图片如下：qq截图20170622133053.png


此主题相关图片如下：qq截图20170622133158.png

DataColChanged事件

 

If e.DataCol.name = "第一列" Then
    If e.OldValue <> Nothing Then
        For Each s As String In e.OldValue.split(",")
            DataTables("表B").ReplaceFor("第二列", "值班", "第一列 = '" & s & "'")
        Next
    End If
    If e.NewValue <> Nothing Then
        For Each s As String In e.newValue.split(",")
            DataTables("表B").ReplaceFor("第二列", "值班", "第一列 = '" & s & "'")
        Next
    End If
End If

我把它放在了第一张表的事件里，但是还是没用啊

除了表名改成自己的，列需要改吗，版主大大

 代码测试没问题，如果还有问题，上传具体实例看看。

代码如图一，两列都是数据列，但是输入了之后还是没反应

 

重置列 http://www.foxtable.com/webhelp/scr/1469.htm

 

此主题相关图片如下：qq截图20170622210058.png


此主题相关图片如下：qq截图20170622210122.png


此主题相关图片如下：qq截图20170622210141.png

这是本次的实际操作和所有表的截图，在重置列之后还是没有用，版主大大再帮我看看存在什么问题

 

If e.DataCol.name = "处理人员" Then
    If e.OldValue <> Nothing Then
        For Each s As String In e.OldValue.split(",")
            DataTables("应急人员信息").ReplaceFor("状态", "值班", "姓名 = '" & s & "'")
        Next
    End If
    If e.NewValue <> Nothing Then
        For Each s As String In e.newValue.split(",")
            DataTables("应急人员信息").ReplaceFor("状态", "值班", "姓名 = '" & s & "'")
        Next
    End If
End If

谢谢版主大大，有用了，当处理人员的勾去掉之后是否有代码能让状态回到在岗呢，以及是否能实现指挥系统表下面的关联表不显示休息状态的人员和处理人员里的勾选项也不显示休息状态的，实在麻烦您了，当初没考虑到这一点，附件是目前的系统

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

点击浏览该文件:应急管理系统.table