关于使用视图删除源表数据的问题,求高手指点。
在模仿一个项目文件时,改了一些东西。对表的操作改成了对视图的操作,添加记录已经解决了,但是删除记录怎么都改不了,不知道思路上有没有错误,求高手指点。我把删除按钮的代码发上来,如下
numvar=thisform.pageframe1.ActivePage &&用来判断当前活动的页框
DO CASE &&判断当前活动页框,其中3、4是视图,错误也是在这两个页框中的表中出现的
CASE numvar=1
tablevar="bmb"
CASE numvar=2
tablevar="zwb"
CASE numvar=3
tablevar="ygxxst" &&ygxxst(员工信息视图)是基于ygxxb(员工信息表)和部门、职务表共同建立的视图
viewvar="ygxxb"
CASE numvar=4
tablevar="jbgzst"
viewvar="jbgzb"
ENDCASE
SELECT &tablevar
x=MESSAGEBOX("真的要删除当前记录吗?",1+32+0,"确认删除")
IF x=1 &&我是想先使用视图,选择记录并做删除标记,然后选择表执行pack语句,
DELETE &&然后刷新视图,重新绑定数据源,刷新表单
IF numvar>2
SELECT &viewvar
PACK
REQUERY("&tablevar")
ENDIF
thisform.pageframe1.Pages(thisform.pageframe1.ActivePage).grid1.recordsourcetype=1
thisform.pageframe1 .pages(thisform.pageframe1.ActivePage).grid1.recordsource=tablevar
thisform.Refresh
ENDIF
高手给看下是思路的问题,还是什么,该怎么解决?