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

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