Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]同样的代码不同的表，存在执行差


  共有5461人关注过本帖树形打印复制链接

主题：[求助]同样的代码不同的表，存在执行差
帅哥哟，离线，有人找我吗？
乡里出城
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：426 积分：3505 威望：0 精华：0 注册：2015/4/17 9:13:00 		[求助]同样的代码不同的表，存在执行差  发帖心情 Post By：2015/8/10 9:14:00 [显示全部帖子]

If DataTables("订单").Find("[发生日期] Is Null and [产品] Is Null and [客户] Is Null") Is Nothing Then

    Return '那么返回

End If

Dim Result1 As DialogResult

Result1 = Messagebox.Show("本次登记的业务数据不完整,按""否""将为你选出未登记未整的业务,按""是""将不会保存未完整的数据,确定要关闭平台吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If Result1 = DialogResult.No Then

    e.Cancel = True '取消关闭项目

    Tables("订单").Filter = "[发生日期] Is Null or [产品] Is Null or [客户] Is Null"

    MainTable = Tables("订单")  

 

End If



上述代码应该没问题，在项目BeforeCloseProject能执行，可是相同的在其他表里却不能执行该代码，关闭项目就直接关闭了，没有判断行为
 回到顶部
帅哥哟，离线，有人找我吗？
乡里出城
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：426 积分：3505 威望：0 精华：0 注册：2015/4/17 9:13:00 		  发帖心情 Post By：2015/8/10 9:51:00 [显示全部帖子]

我表述不清楚？我就是有空值 ，不符合的条件的时候，直接关闭，它就关了，不会有判断

 回到顶部
帅哥哟，离线，有人找我吗？
乡里出城
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：426 积分：3505 威望：0 精华：0 注册：2015/4/17 9:13:00 		  发帖心情 Post By：2015/8/10 11:26:00 [显示全部帖子]

你看没对表的那个项目吧，什么拒绝打开项目，是项目的CLOSE，不是OPEN啊
[此贴子已经被作者于2015/8/10 11:29:51编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
乡里出城
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：426 积分：3505 威望：0 精华：0 注册：2015/4/17 9:13:00 		  发帖心情 Post By：2015/8/10 11:28:00 [显示全部帖子]

我说了，代码是没错的，换句话来说的，有时能执行的得，有时执行不了，你信么，就同样的代码同样的表，不同的时间，说真的，你相信么

 回到顶部
帅哥哟，离线，有人找我吗？
乡里出城
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：426 积分：3505 威望：0 精华：0 注册：2015/4/17 9:13:00 		  发帖心情 Post By：2015/8/10 11:29:00 [显示全部帖子]

帅哥，在线噢！
blackzhu 你没看清楚是项目的那个属性吧
 回到顶部
帅哥哟，离线，有人找我吗？
乡里出城
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：426 积分：3505 威望：0 精华：0 注册：2015/4/17 9:13:00 		  发帖心情 Post By：2015/8/10 12:55:00 [显示全部帖子]

我的意思就是指当有发生日期或客户或产品存在空值的时候，它就没判断了直接执行Return

 回到顶部
帅哥哟，离线，有人找我吗？
乡里出城
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：426 积分：3505 威望：0 精华：0 注册：2015/4/17 9:13:00 		  发帖心情 Post By：2015/8/10 13:17:00 [显示全部帖子]

A表和B表的有三个字段都相同的，就是发生日期、客户、产品

可是相同的在其他表里却不能执行该代码

在项目BeforeCloseProject设了
If DataTables("A").Find("[发生日期] Is Null and [产品] Is Null and [客户] Is Null") Is Nothing Then  
    Return '那么返回,不再执行代码

End If

...... '如一楼的代码

......

If DataTables("B").Find("[发生日期] Is Null and [产品] Is Null and [客户] Is Null") Is Nothing Then  

    Return '那么返回,不再执行代码

End If


...... '如一楼的代码

......



当A表的发生日期、客户、产品的其中一个存在空值，只要关闭项目就会执行msgbox代码，而不是直接关闭，可是B表呢，B表的发生日期、客户、产品的其中一个存在空值，只要关闭项目就直接关闭了

 回到顶部
帅哥哟，离线，有人找我吗？
乡里出城
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：426 积分：3505 威望：0 精华：0 注册：2015/4/17 9:13:00 		  发帖心情 Post By：2015/8/10 13:18:00 [显示全部帖子]

我也试过全部用or的了，但还是会像15楼那样，后来我想了一下，用OR的话，这代码判断就是错的了，
[此贴子已经被作者于2015/8/10 13:19:46编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
乡里出城
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：426 积分：3505 威望：0 精华：0 注册：2015/4/17 9:13:00 		  发帖心情 Post By：2015/8/10 13:28:00 [显示全部帖子]

变得我无语了，现在是同一张表，同一个代码，当发生日期、客户或产品存在空值时，开发者的账户能正常执行代码，其他用户的就不行，晕死了
[此贴子已经被作者于2015/8/10 13:29:02编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
乡里出城
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：426 积分：3505 威望：0 精华：0 注册：2015/4/17 9:13:00 		  发帖心情 Post By：2015/8/10 14:30:00 [显示全部帖子]

If DataTables("订单").Find("[发生日期] Is Null and [产品] Is Null and [客户] Is Null") Is Nothing Then

  Messagebox.Show("直接关了")   '代码直接执行到这个里  ，明明，有几行是空值来的，现在是用开发者的账号增加空行，就能直接判断，用其他用户的就不行

Return '那么返回

End If

Dim Result1 As DialogResult

Result1 = Messagebox.Show("本次登记的业务数据不完整,按""否""将为你选出未登记未整的业务,按""是""将不会保存未完整的数据,确定要关闭平台吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If Result1 = DialogResult.No Then

    e.Cancel = True '取消关闭项目

    Tables("订单").Filter = "[发生日期] Is Null or [产品] Is Null or [客户] Is Null"

    MainTable = Tables("订单")  

 

End If
 回到顶部
总数 19 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询