现有表A，有一列名状态，有若干个表文档001，文档002，文档003，…… 每个文档表同样有一列名状态。

需要在表A状态列张三的病假改为出勤，则其对应文档的状态列的所有病假自动替换为出勤，其他的不变。

同理在表A状态列把李四的出勤改为病假，则其对应文档的状态列的所有原为出勤的内容能自动替换为病假，其他的不变。

求大神帮忙！

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

点击浏览该文件:替换1.table

设置表A的DataColChanged事件：

Select Case e.DataCol.name
    Case "状态"
        Dim nms() As String = {"文档001","文档002","文档003","文档004","文档005"}
        For Each nm As String  In nms
            DataTables(nm).ReplaceFor("状态",e.NewValue,"姓名 = \'" & e.DataRow("姓名") & "\'")
        Next
End Select