共35 条记录, 每页显示 10 条, 页签: [1] [2][3][4]

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

1楼

blackzhu 发表于：2009/8/19 19:23:00

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("订箱单").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()

   我认为是加载"订单明细"出错,因为"订单明细"是没有运输方式的.我去掉后就可以筛选了.

2楼

狐狸爸爸 发表于：2009/8/19 21:03:00

图片点击可在新窗口打开查看

3楼

blackzhu 发表于：2009/8/19 23:53:00

以下是引用狐狸爸爸在2009-8-19 21:03:00的发言：

图片点击可在新窗口打开查看

什么意思?是不是虫子?还是我的问题?

4楼

狐狸爸爸 发表于：2009/8/20 8:13:00

我看不出来的。

5楼

blackzhu 发表于：2009/8/20 8:27:00

以下是引用狐狸爸爸在2009-8-20 8:13:00的发言：
我看不出来的。

事实上删除那一部分代码就可以用了呀.我用8.20试试.

6楼

狐狸爸爸 发表于：2009/8/20 8:32:00

你不是已经分析出来了,订单明细没有运输方式列吗?

7楼

blackzhu 发表于：2009/8/20 9:00:00

我用8.20版本测试情况一样,老版本没有任何问题.所以我认为还是跟新核心所产生的问题,因为两者兼容的,老的不出问题新的应该也没有任何问题,现在新版用有这个有问题,而老版却没有问题.那么我认为是更新的问题了.而且我测试出来去掉上面的代码就可以筛选了.请狐爸务必看看.不然我不能用新版啊.

8楼

狐狸爸爸 发表于：2009/8/20 9:05:00

实际上,这正是新版本的好处,帮你提示出了问题。
没有这一列，你根据这一列筛选，出问题时应该的，原来的版本只是不动作而已，现在有提示，不是更好吗？

9楼

blackzhu 发表于：2009/8/20 12:46:00

以下是引用狐狸爸爸在2009-8-20 9:05:00的发言：
实际上,这正是新版本的好处,帮你提示出了问题。
没有这一列，你根据这一列筛选，出问题时应该的，原来的版本只是不动作而已，现在有提示，不是更好吗？

狐爸,这不是提示不是提示的问题,问题是这部分代码如果不能使用,那么我的其他代码就也不能用了.我的代码下还有打印的代码我没有贴上来.现在是出来提示后不做任何动作了,我不能打印了.

10楼

blackzhu 发表于：2009/8/20 12:56:00

问题是我要筛选的这个表是有运输方式这一列的,而其他同步筛选的表却没有这一列的.才告知我找不到这一列的.
我花了将近一年的时间才搞出这么个东西,已经得心应手了,现在你要换核心没问题,要去掉datalist我们论坛的大多数狐友不情愿的也就认了,但是以前做出来的东西要能用啊,毕竟大家不是编程高手,要换很多东西花费的时间我们都不知道怎么算呢.望你还是抽空检查一下,不然老用旧版叫什么回事啊?

共35 条记录, 每页显示 10 条, 页签: [1] [2][3][4]