求助:VFP中LIST的问题
有个问题,向各位大哥讨教!
如下图:
一表单上一个LIST,连接dwgdb.单位名称
一个LABEL4,是导出提示,隐藏,在导出时显示
“选定学校导出”按钮的代码是:
IF EMPTY(thisform.list1.value)=.t.&&如果没有选中LIST中的单位,提醒要选择单位
messagebox("请选择单位!",0,"提示信息:")
ELSE
public dcdwmc&&生成全局变量,在下面程序中引用
dcdwmc=ALLTRIM(thisform.list1.value)&&将LIST中选中的单位,设为全局变量
thisform.label4.Visible= .T.&&显示LABEL的提示信息"正在导出"
DO dczxx2013&&运行程序,处理DBF,导出XLS,控制XLS排版
thisform.label4.Visible= .F.&&程序运行完毕,关闭“正在导出”提示
CLOSE TABLES all
USE dwgdb&&在dczxx2013中有关闭所有表的命令,为了显示LIST,这里再打开一下
messagebox(dcdwmc+nd+"年EXCEL打印表导出完成!",0,"导出完成:")
ENDIF
thisform.Refresh
RETURN&&结束程序
-------
运行时的界面如下:
=====================================
出现问题:
问题一:有时会出现“不能访问dwgdb.单位名称”的提示,有时却不出现。
即使出现这个提示,点击“确定”后程序照常运行。
问题二:程序运行完成后,原来被LABEL遮挡的区域,LIST不能正常显示,每次都这样:
请教各位大哥,这两个问题如何解决啊?
[解决办法]
加了这个 LABEL4 ,显示后,表单重新刷新了,刷新时找到 List 数据源表了,所以不关闭你的 List 数据源即可。
不用CLOSE TABLES all,只把用不到关闭就行:Use In '表名'