主题：[求助]数据的自动流转之二 中如何精简根据用户对当前表根据关键列的值生成Filter筛选

Select Case User.Name
Case "张三"
Filter = "进度 Is Null" '进度为空
bj = "1A"
Case "李四"
Filter = "进度 = '1B'" '进度一结束
bj = "2A"
Case "王五"
Filter = "进度 = '2B'" '进度二结束
bj = "3A"
Case "赵六"
Filter = "进度 = '3B'" '进度三结束
bj = "4A"
Case Else
Return '其他用户不追载
End Select