主题：看看这个代码有没有问题

Dim Filter As String
With e.Form.Controls("ddh")
    If .Value IsNot Nothing Then
        Filter = "IO = '" & .Value & "'"
    End If
End With
With e.Form.Controls("KA")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "口岸 = '" & .Value & "'"
    End If
End With
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
With e.Form.Controls("BZ")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "包装 = '" & .Value & "'"
    End If
End With
If Filter > "" Then
    Tables("装箱单").Filter = Filter
    Tables("订箱单").Filter =tables("装箱单").Filter
    Tables("出运资料").Filter =tables("装箱单").Filter
    Tables("装箱统计").Filter =tables("装箱单").Filter
     Tables("裁剪数").Filter =tables("装箱单").Filter
End If


  这个代码在新版中显示找不到"运输方式"这个列,但是在旧版中就没有问题.

    我已经下了呀,昨日就不行.好多表呢不太好传.我测试了一下你的筛选,同样的代码就没有问题.

with e.Form
    Dim dst As WinForm.DataList = .Controls("DataList1")
    if dst.DataTable is DataTables("订单情况") then
        forms("订单基本情况输入").open
    end if
end with

  这个代码,新版还能用吗?

做服装

 奇怪,我用做了个简单的表,可以筛选!

此主题相关图片如下：未找到列.jpg



上面的代码产生的错误.

看看什么情况,我用其他新表做了简单的表,用这个窗口(代码)做出来筛选也没有问题.重做了好多次还是有这个问题.用你的列子改也有问题.旧版就没有问题.

一个项目要5000多K不能上传

我另外传给你,一直出错