Foxtable(狐表) → 用户栏目 → 专家坐堂 → 退出窗口时 出错了


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

主题：退出窗口时 出错了
帅哥哟，离线，有人找我吗？
jswjyjf
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2552 积分：20045 威望：0 精华：0 注册：2012/5/19 11:57:00 		退出窗口时 出错了  发帖心情 Post By：2014/11/6 19:57:00 [只看该作者]

退出窗口时 出错了

 

 


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20131105200601.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/11/6 19:58:00 [只看该作者]

 贴出代码。

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


加好友 发短信
等级：九尾狐 帖子：2552 积分：20045 威望：0 精华：0 注册：2012/5/19 11:57:00 		  发帖心情 Post By：2014/11/6 20:12:00 [只看该作者]

DataTables("进货单").RejectChanges()
DataTables("进货单明细").RejectChanges()
e.Form.close()

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/11/6 20:14:00 [只看该作者]

 贴出你beforeclose 和 afterclose的代码。

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


加好友 发短信
等级：九尾狐 帖子：2552 积分：20045 威望：0 精华：0 注册：2012/5/19 11:57:00 		  发帖心情 Post By：2014/11/6 20:15:00 [只看该作者]

beforeclose 代码为DataTables("进货单").RejectChanges()
DataTables("进货单明细").RejectChanges()

 

 

afterclose 没有代码
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/11/6 20:17:00 [只看该作者]

 看你的currentChanged事件的代码。

 

 看是否加了判断了 If Forms("窗口1").Opened Then 等
 回到顶部
帅哥哟，离线，有人找我吗？
jswjyjf
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2552 积分：20045 威望：0 精华：0 注册：2012/5/19 11:57:00 		  发帖心情 Post By：2014/11/6 20:20:00 [只看该作者]

加了

 

代码如下

If Forms("进货单").Opened Then  '先判断窗体是否打开,因为要调用窗体控件的
If e.Table.current("单据状态")="已审核"
Tables("进货单明细").allowedit=False
e.Table.allowedit=False
Forms("进货单").Controls("增加").enabled=False
Forms("进货单").Controls("删除").enabled=False
Forms("进货单").Controls("保存").enabled=False
Forms("进货单").Controls("审核").enabled=False
Forms("进货单").Controls("撤销").enabled=False
Else
Tables("进货单明细").allowedit=True
e.Table.allowedit=True
Forms("进货单").Controls("增加").enabled=True
Forms("进货单").Controls("删除").enabled=True
Forms("进货单").Controls("保存").enabled=True
Forms("进货单").Controls("审核").enabled=True
Forms("进货单").Controls("撤销").enabled=True
End If
    Dim pic As WinForm.PictureBox = Forms("进货单").Controls("PictureBox1")
    If e.Table.Current("单据状态") ="已审核"
        pic.Image = getimage("已审核.png")   '若已审核,则显示对应图片,图片要放到images文件夹,否则就要指定完整路径
    End If
   If e.Table.Current("单据状态") ="未保存"
        pic.Image = getimage("未保存.png")   '若已审核,则显示对应图片,图片要放到images文件夹,否则就要指定完整路径
    End If
   If e.Table.Current("单据状态") ="已保存"
        pic.Image = getimage("已保存.png")   '若已审核,则显示对应图片,图片要放到images文件夹,否则就要指定完整路径
    End If
End If
  vars("ljs")=Tables("进货单").current("数量")
        vars("djh")=Tables("进货单").current("进货单号")
        forms("进货单").Controls("Label8").text=cumoney(vars("ljs"))+"   小写: " & vars("ljs")
        forms("进货单").Controls("Label1").text=vars("djh")
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/11/6 20:21:00 [只看该作者]

 最后两句

 

forms("进货单").Controls("Label8").text=cumoney(vars("ljs"))+"   小写: " & vars("ljs")
forms("进货单").Controls("Label1").text=vars("djh")
 回到顶部
帅哥哟，离线，有人找我吗？
jswjyjf
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2552 积分：20045 威望：0 精华：0 注册：2012/5/19 11:57:00 		  发帖心情 Post By：2014/11/6 20:25:00 [只看该作者]

放在哪里比较好

 
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/11/6 20:26:00 [只看该作者]

 放进判断里面

 回到顶部
总数 17 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.03516 秒, 4 次数据查询