主题：同样的代码，为啥在另外一张表上就不能用

此主题相关图片如下：1.jpg


此主题相关图片如下：2.jpg


此主题相关图片如下：3.jpg

第一张表使用同样的代码筛选，到了下面一张表就筛选不出来了，奇怪，原代码

Dim h1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim h2 As WinForm.TextBox = e.Form.Controls("TextBox2")

Dim h5 As WinForm.TextBox = e.Form.Controls("TextBox5")
Dim h6 As WinForm.TextBox = e.Form.Controls("TextBox6")
Dim h7 As WinForm.TextBox = e.Form.Controls("TextBox7")

 

Dim filter As String
With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        If Filter >""  Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 >= #" & .Value & "#"
    End If
End With

With e.Form.Controls("EndDate")
    If .Value IsNot Nothing Then
        If Filter >""  Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 <= #" & .Value & "#"
    End If
End With

If h1.Value <> "" Then
    If filter > "" Then
        filter = filter & " And "
    End If
    filter = "订单明细编号 Like '%" & h1.Text & "%'"
End If
If h2.Value <> "" Then
    If filter > "" Then
        filter = filter & " And "
    End If
    filter = "供应商名称 Like '%" & h2.Text & "%'"
End If

If h5.Value <> "" Then
    If filter > "" Then
        filter = filter & " And "
    End If
    filter = "物料代码 Like '%" & h5.Text & "%'"
End If
If h6.Value <> "" Then
    If filter > "" Then
        filter = filter & " And "
    End If
    filter = "物料名称 Like '%" & h6.Text & "%'"
End If
If h7.Value <> "" Then
    If filter > "" Then
        filter = filter & " And "
    End If
    filter = "规格型号 Like '%" & h7.Text & "%'"
End If

If Filter > "" Then
Tables("订单总表").Filter=Filter
End If

此主题相关图片如下：4.jpg

有的，看上面的第二张图片

此主题相关图片如下：2.jpg

下面这个就是正常的，同一代码，不同上面会有不同效果，奇怪，到底是啥原因造成的

 

此主题相关图片如下：4.jpg

谢谢大家，我上传了例子，自己也实在找不到原因，这个表名叫“订单总表”； 在窗口设计中：“订单总表与明细同时录入”中

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:鑫建诚机械有限公司管理系统.rar

这个模块窗口是我根据另外一个系统的窗口模块导过来的，名字和字段都改成我现在这个表的名字和字段名了~~以前用过很多次，都没问题，这次不知道咋回事儿~~