我自己写了个程序，在家里机子上做好了，测试后，用着很好。但到单位上用时却出现了错误。点保存时出现错误
点删除时也出现错误
不知道是什么原因，请高手指教。
另外，还有就是，我想看一下这个表单有何问题，等改过后保存却出现如下问题：备注文件e:\城镇居民医疗保险管理系统\bd\dwda.sct缺少或无效。不知什么原因。在家里没出现这个问题啊

第一个出错原因可能是索引文件出现问题，初始化建立索引文件并及时更新大约就能避免出现。第二个出错原因也许是编译包含了数据表，具体原因不详。第三个出错原因明显是复制不全，每个表单都有同名但扩展名分别是scx和sct的文件。

Tiger5392老师你好：我现在看了下，编译中没包含数据表，我在单位机子上看到scx和sct文件都在，打sct文件时也能打开表单，但保存时出错，找不到sct文件。具体原因至今没找出来。

不好意思Tiger5392老师，dbc文件在编译时不用包含在里边对吗？这个问题我还没弄明白。

很可能是在程序中使用了绝对路径，而换了一台电脑相应的路径及文件不一致造成的。

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

程序有无错误靠人工检查代码是很难做到100％的，最便捷的方法就是上机测试，出错后挂起程序再检查引起错误的代码，分析问题所在。
初步看了一下，提出几点建议：
1、messagebox()函数中用变量有点多余，直接将字符放在函数中，既简捷又直观，还能加快运行速度。
2、use data/dw exclusive这行代码应该使用反斜杠“\”，因为系统只认识反斜杠作为路径层次的分隔符。
3、控件可以通过数据源与字段或变量绑定，绑定之后就不需要另外赋值，直接刷新就可以了。
4、最后用select语句将相应的记录筛选出来成为表“lsdw”，但设置表格的数据源还是用原表“dw”，不知筛选的用意如何？

谢谢Tiger5392、hu9jj两位老师，我再仔细查一下程序，有问题还要请教两位。祝两位老师工作愉快！