以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  看看这个代码有没有问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=3933)
--  作者：blackzhu
--  发布时间：2009/8/19 12:17: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


  这个代码在新版中显示找不到"运输方式"这个列,但是在旧版中就没有问题.
--  作者：狐狸爸爸
--  发布时间：2009/8/19 12:19:00
--  
你下了今天的更新没有？
如果下了还是有问题，将这个表和窗口做成一个文件传上来。
--  作者：狐哥
--  发布时间：2009/8/19 12:21:00
--  
blackzhu 是做哪一行的，呵呵，与我做的行来有点类似。
--  作者：blackzhu
--  发布时间：2009/8/19 12:27:00
--  
以下是引用狐狸爸爸在2009-8-19 12:19:00的发言：
你下了今天的更新没有？
如果下了还是有问题，将这个表和窗口做成一个文件传上来。

    我已经下了呀,昨日就不行.好多表呢不太好传.我测试了一下你的筛选,同样的代码就没有问题.
--  作者：blackzhu
--  发布时间：2009/8/19 12:27:00
--  
with e.Form
    Dim dst As WinForm.DataList = .Controls("DataList1")
    if dst.DataTable is DataTables("订单情况") then
        forms("订单基本情况输入").open
    end if
end with

  这个代码,新版还能用吗?
--  作者：blackzhu
--  发布时间：2009/8/19 12:28:00
--  
以下是引用狐哥在2009-8-19 12:21:00的发言：
blackzhu 是做哪一行的，呵呵，与我做的行来有点类似。

做服装
--  作者：yangming
--  发布时间：2009/8/19 12:35:00
--  
用DataList1,新增行后,光标仍然还是不会移到新增行中
--  作者：blackzhu
--  发布时间：2009/8/19 12:40:00
--  
以下是引用狐狸爸爸在2009-8-19 12:19:00的发言：
你下了今天的更新没有？
如果下了还是有问题，将这个表和窗口做成一个文件传上来。

 奇怪,我用做了个简单的表,可以筛选!
--  作者：blackzhu
--  发布时间：2009/8/19 13:33:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：未找到列.jpg
图片点击可在新窗口打开查看


上面的代码产生的错误.
--  作者：blackzhu
--  发布时间：2009/8/19 13:36:00
--  
看看什么情况,我用其他新表做了简单的表,用这个窗口(代码)做出来筛选也没有问题.重做了好多次还是有这个问题.用你的列子改也有问题.旧版就没有问题.