Dim lm As String = e.Sender.TextDim t As Table = Tables("表A")If t.cols.Contains(lm) Then t.filter = lm & " is not null" t.cols(lm).move(0) t.sort = “某某列”End If