这是删除按建里面的,小弟想留下一个“部门编号”的字段,意思是把编号留下,其它的删除,请教高手在哪里修改?
set delete on
nAnswer = MESSAGEBOX("是否确定删除当前记录?",4+32,"信息提示")
IF nAnswer = 6&&表示按了<是>按钮 b=RECNO() DELETE PACK go bottom
ENDIF
THISFORM.REFRESH()
set delete on
nAnswer = MESSAGEBOX("是否确定删除当前记录?",4+32,"信息提示")
IF nAnswer = 6&&表示按了<是>按钮 b=RECNO()
repl 部门编号 with "" DELETE PACK go bottom
ENDIF
THISFORM.REFRESH()
这是打印里面的代码:
do case case thisform.optiongroup1.option1.value=1 wait window "正在运行。。。。"timeout 2 report form 全体档案输出 environment preview useFOR(职工编号,姓名,性别,民族,籍贯,政治面貌,文化程度,出生日期,健康状况,婚姻,职称,现任职务,毕业学校,部门名称,家庭地址,照片)
endcase
加在哪里都提示出错,我主要是想让它只有空编号没内容的就不要一起打出来浪费纸张!帮忙看看啊各位高手,