经过测试找不到"运输方式"列的原因可能就是这个!狐爸看看 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 经过测试找不到"运输方式"列的原因可能就是这个!狐爸看看

共有24970人关注过本帖树形打印复制链接主题：经过测试找不到"运输方式"列的原因可能就是这个!狐爸看看

blackzhu

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00

经过测试找不到"运输方式"列的原因可能就是这个!狐爸看看 发帖心情

Post By：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()

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

blackzhu

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2009/8/19 23:53:00 [显示全部帖子]

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

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

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

blackzhu

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2009/8/20 8:27:00 [显示全部帖子]

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

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

blackzhu

小大 4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2009/8/20 9:00:00 [显示全部帖子]

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

blackzhu

小大 5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2009/8/20 12:46:00 [显示全部帖子]

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

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

blackzhu

小大 6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2009/8/20 12:56:00 [显示全部帖子]

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

blackzhu

小大 7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2009/8/20 13:04:00 [显示全部帖子]

以下是引用狐狸爸爸在2009-8-20 8:32:00的发言：
你不是已经分析出来了,订单明细没有运输方式列吗?

是啊!狐爸,订单明细没有运输方式是对的,但是我的代码是用来筛选装箱单这个表的,而不是筛选订单明细这个表的.订单明细只是跟着装箱单这个表同步筛选的一个步骤而已.也就是说,我在筛选装箱单时是根据IO和口岸和运输方式筛选,同步筛选订单明细时因为订单明细表没有运输方式这一列,所以只需同步筛选出IO和口岸两个就可以了.难不成订单明细我再加入一个运输方式列不成?老版可以的,新版肯定可以的,只是需要你看看而已.

blackzhu

小大 8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2009/8/20 16:04:00 [显示全部帖子]

以下是引用狐狸爸爸在2009-8-20 13:44:00的发言：

说实话，我一直不明白你的问题。
我只能负责处理程序的bug。
表中没有这一列，却根据这列筛选，自然要出错。
如果明明有这一列，筛选也出错，那么应该我来处理。

其他设计逻辑方面的问题，你可以传项目上来，和其他用户一起探讨，我没有时间去深入你的系统的。
我也没有可能看你这一个按钮的代码，就明白你的系统结构和设计思路。

[此贴子已经被作者于2009-8-20 13:45:00编辑过]

我筛选的这一个表中是有这一列的,是另外同步筛选的另外一个表没有这一列.

blackzhu

小大 9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2009/8/20 16:14:00 [显示全部帖子]

以下是引用yangming在2009-8-20 13:55:00的发言：
我认为问题出在这段代码,你删除这段试试?
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

杨版:我知道删除这一段代码可以通过.但是问题是我筛选的这个表是有这一列,而是我另外一段代码出问题了:
就是这一段

    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()

这个是经过了很多次测试,我认为是加载订单明细表出错,因为订单明细表是没有运输方式的.我删除这一段代码进行后就可以筛选了.
从本身的这一段代码是没有问题,是筛选本表时同时加载其他表和加载其他表,但用在新版就是显示找不到这个列,我认为这段提示是找不到订单明细表的列,因为订单明细是没有这一列的.所以我认为是新版的问题.

blackzhu

小大 10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2009/8/20 16:16:00 [显示全部帖子]

还有发现新版不能保存数据,我分别在三个表中修改数据有两个表可以保存一个表不能,换成旧版就能保存.另外.报表直接引用关联表数据不能引用.

下一主题 >> << 上一主题

总数 21 1 2 3 下一页

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