- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 筛选的问题，空值返回提示和结果内的继续筛选 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115117)
-- 发布时间：2018/3/1 12:30:00
-- 筛选的问题，空值返回提示和结果内的继续筛选
请老师看一下对账窗体。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新库存管理系统.table |
-- 发布时间：2018/3/1 14:59:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:新库存管理系统.table |
-- 发布时间：2018/3/1 15:08:00
--
文件版本过高 我用的是2014版，客服说不能升级
-- 发布时间：2018/3/1 15:54:00
--
对账窗体_出库订单_CurrentChanged
If Tables("对账窗体_出库订单").Current Is Nothing Then Return
Tables("对账窗体_出库明细").Filter = "出库票号 = \'" & Tables("对账窗体_出库订单").Current("出库票号") & "\'"
对账窗体_ckfs_TextChanged
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
With e.Form.Controls("ckfs")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "出库方式 = \'" & .text & "\'"
End If
End With
If Filter > "" Then
Tables("对账窗体_出库订单").Filter = Filter
End If
-- 发布时间：2018/3/4 11:13:00
--
老师，还是报错，每次新打开查询的时候会报错，而且当天如果没有明细的话也会报错
-- 发布时间：2018/3/4 13:36:00
--
认认真真看4楼代码。如果不会做，请升级到最新版foxtable，然后打开2楼实例测试。
-- 发布时间：2018/3/4 15:19:00
--
不好意思 没仔细看 弄好了 谢谢
-- 发布时间：2018/3/4 16:37:00
--
额 我升级到2018看了别人的一个代码。。。。回到2014，自己的文档也打不开了。。。。。。咋整
-- 发布时间：2018/3/4 16:49:00
--
额 我升级到2018看了别人的一个代码。。。。回到2014，自己的文档也打不开了。。。。。。咋整
这个没办法。如果用高版本打开过某个项目，就不能再用低版本的foxtable打开此项目了。
如果有备份，就换回备份吧。
-- 发布时间：2018/3/4 16:55:00
--
犹豫了两天没要升级，做了一上午白忙活了