主题：单元格直接筛选记录

AfterEdit

If e.Col.Name = "运单编号" AndAlso e.Table.Rows(0).IsNull("运单编号") Then
    e.Table.Filter = ""
Else
    e.Table.Filter = "运单编号 Like '*" & e.Table.Rows(0)("运单编号") & "'"
End If