经过测试找不到"运输方式"列的原因可能就是这个!狐爸看看 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

经过很多次测试,找不到"运输方式"列的原因可能是:
Tables("订箱单").Filter =tables("装箱单").Filter
    Tables("出运资料").Filter =tables("装箱单").Filter
    Tables("装箱统计").Filter =tables("装箱单").Filter
     Tables("裁剪数").Filter =tables("装箱单").Filte

这部分代码和另外的一部分代码造成的,我的这部分代码下面还有另外一段代码:
        Dim ValAs String = e.Form.Controls("DDH").Value
        Dim Filter As string
        Filter ="[IO] = '" & Val & "'"
        DataTables("裁剪数").LoadFilter = Filter
        DataTables("裁剪数").Load()
        DataTables("订单明细").LoadFilter = Filter
        DataTables("订单明细").Load()

   我认为是加载"订单明细"出错,因为"订单明细"是没有运输方式的.我去掉后就可以筛选了.

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