| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1033 人关注过本帖
标题:关于一个程序运行时出现的错误,有哪位老师知道,请指教!
只看楼主 加入收藏
shyibaoban
Rank: 1
等 级:新手上路
帖 子:125
专家分:2
注 册:2008-12-3
结帖率:77.78%
收藏
已结贴  问题点数:10 回复次数:7 
关于一个程序运行时出现的错误,有哪位老师知道,请指教!
图片附件: 游客没有浏览图片的权限,请 登录注册
我自己写了个程序,在家里机子上做好了,测试后,用着很好。但到单位上用时却出现了错误。点保存时出现错误
图片附件: 游客没有浏览图片的权限,请 登录注册

点删除时也出现错误
不知道是什么原因,请高手指教。
另外,还有就是,我想看一下这个表单有何问题,等改过后保存却出现如下问题:备注文件e:\城镇居民医疗保险管理系统\bd\dwda.sct缺少或无效。不知什么原因。在家里没出现这个问题啊
图片附件: 游客没有浏览图片的权限,请 登录注册
搜索更多相关主题的帖子: 老师 指教 运行 
2010-09-21 11:27
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:5 
第一个出错原因可能是索引文件出现问题,初始化建立索引文件并及时更新大约就能避免出现。第二个出错原因也许是编译包含了数据表,具体原因不详。第三个出错原因明显是复制不全,每个表单都有同名但扩展名分别是scx和sct的文件。

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2010-09-21 20:22
shyibaoban
Rank: 1
等 级:新手上路
帖 子:125
专家分:2
注 册:2008-12-3
收藏
得分:0 
Tiger5392老师你好:我现在看了下,编译中没包含数据表,我在单位机子上看到scx和sct文件都在,打sct文件时也能打开表单,但保存时出错,找不到sct文件。具体原因至今没找出来。
2010-09-22 21:34
shyibaoban
Rank: 1
等 级:新手上路
帖 子:125
专家分:2
注 册:2008-12-3
收藏
得分:0 
不好意思Tiger5392老师,dbc文件在编译时不用包含在里边对吗?这个问题我还没弄明白。
2010-09-22 21:36
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:5 
很可能是在程序中使用了绝对路径,而换了一台电脑相应的路径及文件不一致造成的。

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2010-09-23 08:35
shyibaoban
Rank: 1
等 级:新手上路
帖 子:125
专家分:2
注 册:2008-12-3
收藏
得分:0 
hu9jj老师,你看一下我这段程序有没有错误?我用的是数据环境加载数据表
ldwbh=alltrim(thisform.Pageframe1.Page2.txtDwbh.value)
cmessagetitle='医疗保险管理系统'
cmessagetext='确定要删除吗?'
ndialogtype=4+32
nAnswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)
SELECT DW
 *GO thisform.rec
if nAnswer=6
 thisform.Pageframe1.Page1.grdDw.RecordSource=null
 use data/dw exclusive         &&以独占方式打开数据表
   GO thisform.rec
  dele   &&逻辑删除记录
  *dele from dw where empty(dwMC)
  pack                    &&物理删除
*messagebox('删除完毕',48,'操作成功!')

*thisform.Pageframe1.Page1.grdDw.RecordSourceType=1
*thisform.Pageframe1.Page1.grdDw.RecordSource="dw"
GO top
 thisform.Pageframe1.Page2.txtDwbh.value=dw.dwbh
thisform.Pageframe1.Page2.txtDwmc.value=dw.dwmc
thisform.Pageframe1.Page2.txtDwlxr.value=dw.dwlxr
thisform.Pageframe1.Page2.txtDwlxrdh.value=dw.dwlxrdh
thisform.Pageframe1.Page2.txtDwdz.value=dw.dwdz
 thisform.Pageframe1.Page2.Refresh     &&刷新表单
ENDIF
select dwbh as 单位编号,dwmc as 单位名称,dwlxr as 单位联系人,dwlxrdh as 联系人电话,dwdz as 单位地址 FROM dw ORDER BY dwbh into cursor lsdw
thisform.Pageframe1.Page1.grdDw.RecordSource="dw"
  thisform.Pageframe1.Page1.Refresh     &&刷新表单
  thisform.Refresh  
messagebox('删除完毕',48,'操作成功!')
use
2010-09-23 08:49
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:0 
程序有无错误靠人工检查代码是很难做到100%的,最便捷的方法就是上机测试,出错后挂起程序再检查引起错误的代码,分析问题所在。
初步看了一下,提出几点建议:
1、messagebox()函数中用变量有点多余,直接将字符放在函数中,既简捷又直观,还能加快运行速度。
2、use data/dw exclusive这行代码应该使用反斜杠“\”,因为系统只认识反斜杠作为路径层次的分隔符。
3、控件可以通过数据源与字段或变量绑定,绑定之后就不需要另外赋值,直接刷新就可以了。
4、最后用select语句将相应的记录筛选出来成为表“lsdw”,但设置表格的数据源还是用原表“dw”,不知筛选的用意如何?

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2010-09-23 09:15
shyibaoban
Rank: 1
等 级:新手上路
帖 子:125
专家分:2
注 册:2008-12-3
收藏
得分:0 
谢谢Tiger5392、hu9jj两位老师,我再仔细查一下程序,有问题还要请教两位。祝两位老师工作愉快!
2010-09-23 20:34
快速回复:关于一个程序运行时出现的错误,有哪位老师知道,请指教!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017349 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved