主题：经过测试找不到"运输方式"列的原因可能就是这个!狐爸看看

我认为问题出在这段代码,你删除这段试试?
With e.Form.Controls("ys")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "运输方式 = '" & .Value & "'"
    End If
End With