1、 在E盘建一文件夹“信息管理系统”，所有数据文件存入其中
2、 在信息管理系统中建一数据库xxgl，在xxgl中建一表jsdj
3、 建表单“文件和资料接收登记”，其中有打印、退出等按钮（还有添加，修改等），通过数据环境将表jsdj添加进去。单击打印按钮可以调用表单“文件和资料接收登记打印”。
4、 建表单“文件和资料接收登记打印”，其中有预览、打印、退出按钮、及一组单选按钮和两个微调按钮，通过数据环境将表jsdj添加进去。
5、 各部分的代码如下：
A：表单文件和资料接收登记
（1）“打印”mypath="e:\信息管理系统\"
cd(mypath)
do form 文件和资料接收登记打印.scx
（2）“退出“
THISFORM.VISIBLE = .F.
（3）表单的UNLOAD事件：
close all
SET EXCLUSIVE ON
open database e:\信息管理系统\xxgl.dbc
use jsdj
pack &&在此处做物理删除
close database all
SET EXCLUSIVE OFF
B:表单 文件和资料接收登记打印
（1） 表单 ACTIVATE
*获得页面总数totalpage
mypath="e:\信息管理系统\"
cd(mypath)
do case
case thisform.optiongroup1.value=1
repo form 文件和资料接收登记.frx noconsole
case thisform.optiongroup1.value=2
repo form 公文处理.frx noconsole
endcase
totalpage=_pageno
（2） 表单 LOAD
public totalpage
set talk off
set console off
set safety off
（3） 预览
mypath="e:\信息管理系统\"
cd(mypath)
select jsdj
do case
case thisform.optiongroup1.value=1
repo form 文件和资料接收登记.frx preview
case thisform.optiongroup1.value=2
repo form 公文处理.frx preview
endcase
use
（4） 打印
*起始页码thisform.spinner1.value
*结束页码thisform.spinner2.value
mypath="e:\信息管理系统\"
cd(mypath)
do case
case thisform.optiongroup1.value=1
if thisform.spinner1.value<=thisform.spinner2.value
repo form 文件和资料接收登记.frx range thisform.spinner1.value,;
thisform.spinner2.value to printer noconsole
else
messagebox("打印范围设置错误，请重新设置",64,"提示")
endif
use
case thisform.optiongroup1.value=2
if thisform.spinner1.value<=thisform.spinner2.value
repo form 公文处理.frx range thisform.spinner1.value,;
thisform.spinner2.value to printer noconsole
else
messagebox("打印范围设置错误，请重新设置",64,"提示")
endif
use
（5） endcase退出
thisform.visible=.f.
但是在运行这个两个表单分别运行的话一切正常。如果运行表单文件和资料接收登记后，单击打印按钮调用表单“文件和资料接收登记打印”时，如果单击预览按钮后再打印，按“退出”时退出返回到表单“文件和资料接收登记”这一步正常，但是在表单“文件和资料接收登记”中按“退出按钮”时出现下列问题：
1、 如果在表单“文件和资料接收登记”中的“打印”按钮加上select jsdj 系统会提示 “找不到jsdj”
2、 找不到别名 JSDJ
ERROR 13
找不到别名 JSDJ
METHOD：FORM1.备注1.controlsource line (备注是表jsdj 中的一个字段)
并且在表单“文件和资料接收登记”中输入的数据在表jsdj中没有记录。
请各位老师能帮我分析一下问题出在哪儿，在下万分感谢。
