设置表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("姓名") & "'") NextEnd Select