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

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之间少个空格