＋设为首页 ＋添加到收藏夹
程序基本完成 可是再连编的时候总是不成功
成功过一次 但是VF的窗口还打开着
谁知道怎么编辑 代码-程序 使连编成功
谢谢
我编的是：
clear all
close all
set status bar on
set talk off
set safety off
do form \fayuan\main.scx
read events
do clearup
你看看我的这个主程序对你有没有帮助。
_screen.visible=.f.
_screen.autocenter=.t.
clea memo
public mypath
mypath=left(sys(16),rat("\",sys(16)))
set defa to (mypath)
set dele on
set excl off
set talk off
set safety off
SET CENT ON
set date to YMD
set mark to [-]
SET DECIMALS TO 2
*********************避免同时运行副本*********************************
declare integer FindWindow IN USER32.DLL AS Find_Window STRING,STRING
LOCAL cTitle
cTitle=[单位名称]
if find_window(0,ctitle)!=0
=messagebox("本程序已运行",48)
quit
endif
*****************************
do form wel
read even
clea
retur
