Foxtable(狐表)用户栏目专家坐堂 → 求纠正这个代码 实现条件判断


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

主题:求纠正这个代码 实现条件判断

帅哥哟,离线,有人找我吗?
李孝春
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
求纠正这个代码 实现条件判断  发帖心情 Post By:2014/8/26 19:09:00 [显示全部帖子]

Dim ab As Row =Tables("订单编码").Current
If ab("保修状态")="保修期内" Then
    Forms("设备报修").open
    If ab("状态列_交付机器")="" Then
        MessageBox.Show("尚未领取设备,不能进行报修操作!")
        Forms("设备报修").Close
    Else
        Tables("订单编码.设备报修").AddNew()
    End If
Else
    Forms("收费维修").open
End If

上述代码运行时候 陷入了逻辑混乱 直接关闭了系统项目

麻烦纠正一下:实现:
当保修状态为保修期内的时候 打开设备报修窗体  反之打开收费维修窗体
同时又能保证状态列—交付机器为空白时候 关闭设备报修窗体  

 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点甜)这个意思? Dim ab As Row ...  发帖心情 Post By:2014/8/26 19:22:00 [显示全部帖子]

运行还是一样的 直接关闭了项目

 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点甜) 呃,如果关闭了项目应该是这句...  发帖心情 Post By:2014/8/26 19:26:00 [显示全部帖子]

删除了问题依旧!

 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点甜) 那你看窗口的afterload写了什么...  发帖心情 Post By:2014/9/1 21:48:00 [显示全部帖子]

软件如图:

图片点击可在新窗口打开查看此主题相关图片如下:din635733289_1409579269357_248.jpg
图片点击可在新窗口打开查看
项目例子就是刚刚有点甜老师你参考的那例子

是在设备报修窗体中


求解

 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点甜)收费维修 Dim ab As Row =T...  发帖心情 Post By:2014/9/2 11:50:00 [显示全部帖子]

有点甜老师 谢谢解答

这两个窗体代码都是一样的?

启动事件是在哪里呢?之前没有这个操作经验

还麻烦有点甜老师再次辛苦解答 谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点甜) 回复10楼,什么时候需要启动窗...  发帖心情 Post By:2014/9/2 11:59:00 [显示全部帖子]

我采用的是菜单标题点就进入对应的保修 收费维修窗体

图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看
错误如图

 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点甜) 菜单的代码这样写 Di...  发帖心情 Post By:2014/9/2 12:46:00 [显示全部帖子]

谢谢有点甜老师  午安

 回到顶部