以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=134214)
--  作者：nxqtxwz
--  发布时间：2019/4/30 8:37:00
--  窗口代码

在窗口的AFTLOAD事件中写入下面的代码为什么不能通过呢？

 

If a.IsNull("采购人") OrElse a.Isnull("采购数量") OrElse a.Isnull("采购总价") OrElse a.Isnull("采购单价") OrElse a.Isnull("供货单位")  Then
    Tables("打印入库单_table1").DataTable.LoadFilter = "办理入库 = \'False\' and 申报日期 >=\'2019-03-25\'"
    Tables("打印入库单_table1").DataTable.Load
    Tables("物品申报").AllowEdit = True
    DataTables("打印入库单_table1").ReplaceFor("_locked", False, "")   \'解锁所有的行
End If
--  作者：有点甜
--  发布时间：2019/4/30 9:09:00
--  

比如

 

Dim a As Row = Tables("表A").current
If a.IsNull("采购人") OrElse a.Isnull("采购数量") OrElse a.Isnull("采购总价") OrElse a.Isnull("采购单价") OrElse a.Isnull("供货单位")  Then
    Tables("打印入库单_table1").DataTable.LoadFilter = "办理入库 = \'False\' and 申报日期 >=\'2019-03-25\'"
    Tables("打印入库单_table1").DataTable.Load
    Tables("物品申报").AllowEdit = True
    DataTables("打印入库单_table1").ReplaceFor("_locked", False, "")   \'解锁所有的行
End If

 
--  作者：nxqtxwz
--  发布时间：2019/4/30 10:00:00
--  

老师你好，如果判断不为空怎么写呢？
--  作者：有点甜
--  发布时间：2019/4/30 10:23:00
--  
    Tables("打印入库单_table1").DataTable.LoadFilter = "办理入库 = \'False\' and 申报日期 >=\'2019-03-25\'"
    Tables("打印入库单_table1").DataTable.Load
    Tables("物品申报").AllowEdit = True
    DataTables("打印入库单_table1").ReplaceFor("_locked", False, "")   \'解锁所有的
--  作者：nxqtxwz
--  发布时间：2019/4/30 10:32:00
--  

老师，就把下面这句改成：采购人、采购数量、采购总价、采购单价、供货单位都不是空的就执行后面的代码怎么改？

 

If a.IsNull("采购人") OrElse a.Isnull("采购数量") OrElse a.Isnull("采购总价") OrElse a.Isnull("采购单价") OrElse a.Isnull("供货单位")  Then
--  作者：有点甜
--  发布时间：2019/4/30 10:33:00
--  

If not (a.IsNull("采购人") OrElse a.Isnull("采购数量") OrElse a.Isnull("采购总价") OrElse a.Isnull("采购单价") OrElse a.Isnull("供货单位"))  Then
--  作者：nxqtxwz
--  发布时间：2019/4/30 10:58:00
--  
以下是引用nxqtxwz在2019/4/30 8:37:00的发言：

在窗口的AFTLOAD事件中写入下面的代码为什么不能通过呢？

 

If a.IsNull("采购人") OrElse a.Isnull("采购数量") OrElse a.Isnull("采购总价") OrElse a.Isnull("采购单价") OrElse a.Isnull("供货单位")  Then
    Tables("打印入库单_table1").DataTable.LoadFilter = "办理入库 = \'False\' and 申报日期 >=\'2019-03-25\'"
    Tables("打印入库单_table1").DataTable.Load
    Tables("物品申报").AllowEdit = True
    DataTables("打印入库单_table1").ReplaceFor("_locked", False, "")   \'解锁所有的行
End If


 

老师，我想在打开窗口时将：

1、采购人、采购数量、采购总价、采购单价、供货单位不为空的；

2、还没有办理入库的；

3、2019年3月25日之后的。

符合这三条的记录筛选显示出来。但上面的代码实现不了，请老师帮忙看看。
--  作者：有点甜
--  发布时间：2019/4/30 11:02:00
--  

Tables("打印入库单_table1").DataTable.LoadFilter = "办理入库 = \'False\' and 申报日期 >=\'2019-03-25\'"

 

改成

 

Tables("打印入库单_table1").DataTable.LoadFilter = "办理入库 = \'False\' and 申报日期 >=\'2019-03-25\' and 采购人 is not null and 采购数量 is not null and 采购总价 is not null and 采购单价 is not null and 供货单位 is not null"

 
--  作者：nxqtxwz
--  发布时间：2019/4/30 11:07:00
--  
以下是引用有点甜在2019/4/30 11:02:00的发言：

Tables("打印入库单_table1").DataTable.LoadFilter = "办理入库 = \'False\' and 申报日期 >=\'2019-03-25\'"

 

改成

 

Tables("打印入库单_table1").DataTable.LoadFilter = "办理入库 = \'False\' and 申报日期 >=\'2019-03-25\' and 采购人 is not null and 采购数量 is not null and 采购总价 is not null and 采购单价 is not null and 供货单位 is not null"

 

老师，未知的编译错误。编译通不过呀。
--  作者：有点甜
--  发布时间：2019/4/30 11:23:00
--  
以下是引用nxqtxwz在2019/4/30 11:07:00的发言：

老师，未知的编译错误。编译通不过呀。

 

代码没问题，请贴出完整代码。