| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 676 人关注过本帖
标题:请帮忙分析一下
只看楼主 加入收藏
nsxlb
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2005-6-6
收藏
 问题点数:0 回复次数:1 
请帮忙分析一下

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

METHODFORM1.备注1.controlsource line (备注是表jsdj 中的一个字段)

并且在表单“文件和资料接收登记”中输入的数据在表jsdj中没有记录。

请各位老师能帮我分析一下问题出在哪儿,在下万分感谢。

搜索更多相关主题的帖子: 信息 管理系统 
2005-07-08 09:18
tzhtang
Rank: 1
等 级:新手上路
帖 子:888
专家分:0
注 册:2004-8-30
收藏
得分:0 
你的jsdj在被调用的表单中关闭了.
解决方法非常简单,你只要把第二个表单中关闭表的命令进行判断执行就可以了,如果是直接执行就关闭,如果是调用执行就不要关闭.

2005-07-12 16:48
快速回复:请帮忙分析一下
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.029943 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved