首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 数据库 > VFP >

VFP中LIST的有关问题

2014-01-12 
求助:VFP中LIST的问题有个问题,向各位大哥讨教!如下图:一表单上一个LIST,连接dwgdb.单位名称一个LABEL4,是

求助:VFP中LIST的问题
有个问题,向各位大哥讨教!
如下图:
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&&结束程序

-------
运行时的界面如下:
VFP中LIST的有关问题

=====================================
出现问题:
问题一:有时会出现“不能访问dwgdb.单位名称”的提示,有时却不出现。
即使出现这个提示,点击“确定”后程序照常运行。
VFP中LIST的有关问题

问题二:程序运行完成后,原来被LABEL遮挡的区域,LIST不能正常显示,每次都这样:
VFP中LIST的有关问题

请教各位大哥,这两个问题如何解决啊?


[解决办法]
加了这个 LABEL4 ,显示后,表单重新刷新了,刷新时找到 List 数据源表了,所以不关闭你的 List 数据源即可。
不用CLOSE TABLES all,只把用不到关闭就行:Use In '表名'

热点排行