想改造下以下代码放到DataColChanged中,(原来是放在CurrentChanged的)
Tables("测评").Filter = "任务组编号 = '" & e.Table.current("任务组编号") & "'" & " and [删除] = False Or [删除] Is Null "