求助,表单上表不存在问题!!
表单上的数据源是一个远程视图,在编写情况下,运行没有问题。可在编译后,出现表不存在。不知道如何处理?我的主程序:
SET TALK OFF
SET ESCAP OFF
CLOSE ALL
CLEAR MENUS
SET SYSMENU SAVE
SET SYSMENU OFF
SET SYSMENU TO
zoom window screen max
release window
SET AUTOSAVE ON
SET CARRY OFF
SET CONFIRM OFF
SET CENTURY OFF
SET DATE ANSI
SET DELETE ON
SET NULL ON
SET NULLDISPLAY TO ""
***
* 设置程序主目录
Public gcMainPath
gcMainPath = Sys(5)+Sys(2003)+"\"
Set Default To &gcMainPath
* 数据目录(本地数据库和表)
Public ataPath
ataPath =gcMainPath+"Data\"
* 程序目录
Public gcPrgsPath
gcPrgsPath =gcMainPath+"Progs\"
* 图片目录
Public gcPicsPath
gcPicsPath=gcMainPath + "pic\"
* 表单目录
Public gcFormsPath
gcFormsPath = gcMainPath+"forms\"
* 菜单目录
Public gcMenusPath
gcMenusPath = gcMainPath+"menus\"
* 标签目录
Public gcLabelsPath
gcLabelsPath = gcMainPath+"libs\"
* 报表目录
Public gcReportsPath
gcReportsPath =gcMainPath+"Reports\"
*初始化键盘
CapsLock(.F.)
IMEStatus(0)
Insmode(.T.)
Numlock(.T.)
&&禁止主表单重复打开
DECLARE Integer FindWindow IN USER32.DLL String lpClassName,String lpWindowName
LPWINDOWNAME="卫生室管理小助手"
IF .NOT. FindWindow(0,lpWindowName)==0 &&寻找窗口标题
=MESSAGEBOX("程序已经运行了,请点击电脑最下面任务栏的卫生室小助手图标!",16,"警告信息")
QUIT
ENDIF
_SCREEN.CAPTION=LPWINDOWNAME
&&在表单需要读取数据的时候才连接,读取数据完成后,关闭连接
*PUBLIC nhandle
*nhandle=sqlstringconnect("driver={MySQL ODBC 8.0 Unicode Driver};server=127.0.0.1;uid=root;pwd=123456;database=wssgl;CHARSET=gb2312")
*IF nhandle>0
* sqlexec(nhandle,'select * from byhmc','byhmc') &&读取数据到sql_table,这个sql_table是不可以修改的
* endif
DO FORM d:\wssxzs\forms\kl.scx
*恢复环境
SET SYSMENU TO DEFAULT
With _Screen
.WindowState=2 &&最大化
.BackColor=Rgb(255,255,255)
.Caption="卫生室管理小助手"
.Icon=''
ENDWITH
read even
retu
clear events
出现问题的那个代码:
LPARAMETERS nKeyCode, nShiftAltCtrl
USE styhmc &&程序开始。就这个有问题,styhmc是一个视图
locate for styhmc.grdm==ALLTRIM(thisform.edit1.Value)
if found()
thisform.label1.caption=ALLTRIM(styhmc.dwmc)+styhmc.yhxm
* DO FORM d:\wssxzs\forms\启动界面.scx
* THISFORM.RELEASE
ELSE
messagebox("对不起,用户代码或密码错误",48,"友好提示!")
continue
ENDIF
[此贴子已经被作者于2019-7-21 10:36编辑过]