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

这个我估计不会了,这样吧我重新理一下思路.

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

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

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

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

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

  27楼的代码上面一段是杨版你给我的,下面一段是我自己的,两段全部出错.我在论坛发现几个坛友在提出这一个代码不能使用的问题,估计要狐爸看看了.

  那你看看前面的代码,我没有做什么条件判断啊?