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

终于有人加入讨论了:思路是怎样,我有一张表,叫装箱单,我用以下的代码进行筛选没有问题:代码如下:
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
    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()

  
加上了这一段代码后,就出现了找不到[运输方式]列的提示!

 明白了吗

因为整个代码还有包含打印的代码,所以我将全部代码贴上:

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("装箱单").Sort = "开始箱号"

Dim T10 As String  = e.Form.Controls("DDH").Value
Dim T20 As String  = e.Form.Controls("KA").Value
DataTables("装箱统计").LoadFilter = "[IO] = '"& T10 &"'and [口岸] = '"& T20 &"'"
DataTables("装箱统计").Load()
DataTables("出运资料").LoadFilter = "[IO] = '"& T10 &"'and [口岸] = '"& T20 &"'"
DataTables("出运资料").Load()
DataTables("订箱单").LoadFilter = "[IO] = '"& T10 &"'and [口岸] = '"& T20 &"'"
DataTables("订箱单").Load()
DataTables("裁剪数").LoadFilter = "[IO] = '"& T10 &"'and [口岸] = '"& T20 &"'"
DataTables("裁剪数").Load()

With Tables("装箱单")
   
    .Select(0,0, .Rows.Count - 1, .Cols.Count - 1)
   
End With

 

 

Dim T,T1,T2 As String
T =  e.Form.Controls("ComboBox5").value
T1 = ProjectPath & "Attachments\" & T & ".xls"
T2 = ProjectPath & "Reports\ "& T & ".xls"

if T ="" then
    MessageBox.Show("请输入报表名!")
Else
    Dim Book As New XLS.Book(T1)
    Book.Build() '生成细节区
    Book.Save(T2)
    Dim Proc As New Process
    Proc.File = T2
    Proc.Start()
End if

 再次声明,此代码在旧版中运用自如.非常好用.

Tables("订箱单").Filter =tables("装箱单").Filter
    Tables("出运资料").Filter =tables("装箱单").Filter
    Tables("装箱统计").Filter =tables("装箱单").Filter
    Tables("裁剪数").Filter =tables("装箱单").Filter

我将这部分代码去掉,已经OK,但是底下的打印报表的代码失去作用.

报表引用出现"未将对象引用到设置到对象的实例"提示.

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

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

Dim T,T1,T2 As String
T =  e.Form.Controls("ComboBox5").value
T1 = ProjectPath & "Attachments\" & T & ".xls"
T2 = ProjectPath & "Reports\ "& T & ".xls"

if T ="" then
    MessageBox.Show("请输入报表名!")
Else
    Dim Book As New XLS.Book(T1)
    Book.Build() '生成细节区
    Book.Save(T2)
    Dim Proc As New Process
    Proc.File = T2
    Proc.Start()
End if

和

Dim T,T1,T2 As String
T =  e.Form.Controls("ComboBox5").value
T1 = ProjectPath & "Attachments-:special:1:- & T & ".xls"
T2 = ProjectPath & "Reports\ "& T & ".xls"

if T isnot Nothing then
   If "常用装箱单".Indexof(T) > -1 then
       Dim Book As New XLS.Book(T1)
       Book.Build()
       Book.Save(T2)
       Dim Proc As New Process
       Proc.File = T2
       Proc.Start()
   End if
End if

这两个打印代码不起作用.筛选的问题已经解决了.

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

上传文件试试吧

   我在14楼讲了去除一部分代码,我想想那部分代码很可能多余.后来就行了.就像你讲的旧版可能兼容性好一些.