以下是引用yangming在2009-8-20 13:55:00的发言:
我认为问题出在这段代码,你删除这段试试?
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
杨版:我知道删除这一段代码可以通过.但是问题是我筛选的这个表是有这一列,而是我另外一段代码出问题了:
就是这一段
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()
这个是经过了很多次测试,我认为是加载订单明细表出错,因为订单明细表是没有运输方式的.我删除这一段代码进行后就可以筛选了.
从本身的这一段代码是没有问题,是筛选本表时同时加载其他表和加载其他表,但用在新版就是显示找不到这个列,我认为这段提示是找不到订单明细表的列,因为订单明细是没有这一列的.所以我认为是新版的问题.