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

1、真同情楼主啊～   不过，你在另一贴上说：做了个简单的表,可以筛选! 能否上传来看看？
2、或把所有代码全部贴出来，那会看得更加全面，相信那么多版主能看出有无问题！～
3、感觉：如果你的代码是在一个按钮中，那么提前加载下面代码呢？：
        DataTables("订单明细").LoadFilter = Filter
        DataTables("订单明细").Load()
        比如说，放在第一段代码：   With e.Form.Controls("ddh").................End With 后面就加载呢？

或者：把下面整段代码放在最开始的位置？
        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()

另外：你的这个 Dim ValAs String  = e.Form.Controls("DDH").Value 没传错吧？ValAs之间少个空格

干脆： 在 订单明细 表中增加一列：运输方式   看它还会提示？

如果你在 订单明细 表中增加 运输方式列后，代码没有错误提示的话（测试一下未尝不可），说明：
1、 旧版本的包容性更广些；或能自动匹配相关的列，多余的列（如运输方式）不做处理（这点是否应该发扬光大？）。 诺是这样，只有老六才能解决问题了， 不知俺说的对不？
2、或是代码还有改进的地方，俺能力有限，看看有无高手出击啦～  

帮你顶上···········

打印问题我不在行，请yang版来看看吧，筛选问题是如何解决的？  很想了解～