程序未运行Contine [英] The Program Not Run Contine
问题描述
这是我更新Aney数据后更新某些数据的程序窗口已停用是否有可能性 在数据更新后在同一窗口继续我的工作
This is My Program Of Update Some Data After Update Of Aney Data The window was deactivate is there aney possibility to continue my work on same window after data was update
关闭所有
选择
CLOSE ALL
SELECT a
USE inwmst ORDER mst
SELECT b
USE inwdtl ORDER dtl
SELECT c
USE porddtl ORDER ord
SELECT d
USE slmst ORDER sl
STORE unt TO tunt
STORE 0 TO inw
define window apt1 ;
at 0.000, 0.000 ;
size 15.307,73.333 ;
title coynm ;
font "MS Sans Serif", 8 ;
style "B" ;
float ;
close ;
minimize ;
color rgb(,,,192,192,192)
move window apt1 center
ACTI WIND APt1
@ 0.385,4.000 say "Inward Flag" ;
font "MS Sans Serif", 14 ;
style "BT"
@ 2.692,0.000 to 2.692,83.333 ;
pen 2, 8 ;
style "1"
@ 3.769,4.333 say "Division:" size 1.000,8.500 font "Calibri", 8 style "BT" ;
picture "@J" color rgb(,,,255,255,255)
@ 5.769,4.333 say "Inward #" size 1.000,8.500 font "Calibri", 8 style "BT" ;
picture "@J" color rgb(,,,255,255,255)
@ 9.769,4.333 say "Open GI" size 1.000,8.500 font "Calibri", 8 style "BT" ;
picture "@J" color rgb(,,,255,255,255)
@ 11.769,4.333 say "Open MRN" size 1.000,8.500 font "Calibri", 8 style "BT" ;
picture "@J" color rgb(,,,255,255,255)
stor "N" to ok
do whil ok="N"
@ 3.769,15 get tunt pict "XX" size 1,5
@ 5.769,15 get inw pict "9999999" size 1,10
READ
IF inw=0 OR tunt=" "
DEACTIVATE WINDOW apt1
RELEASE WINDOWS apt1
CLOSE ALL
retu
ENDIF
SELECT a
SEEK tunt+STR(inw,7)
IF NOT FOUND()
DO alrt WITH "Inward not found!"
LOOP
ENDIF
STORE mrr_Dt_flg TO flg1
STORE vch_dt_flg TO flg2
@ 5.715,30.000 say inw_Dt size 1.000,15.000
font "Calibri", 8 color rgb(0,0,0,255,255,255)
SELECT d
SEEK tunt+a->code_g+a->code_S
@ 7.715,5.500 say name size 1.000,35.000
font "Calibri", 8 color rgb(0,0,0,255,255,255)
@ 9.769,15 get flg1 pict "!" size 1,3
@ 11.769,15 get flg2 pict "!" size 1,3
@ 14.000,5.000 say "Is It Okay....." font "MS Sans Serif",10 styl "BT" colo rgb(255,255,255,192,192,192)
@ 14.000,20.000 get ok pict "!" size 1.000,3.000 font "MS Sans Serif",10 styl "BT" colo rgb(255,255,255,128,128,128)
read
endd
DEACTIVATE WINDOW apt1
RELEASE WINDOWS apt1
IF inw=0 OR tunt=" "
CLOSE ALL
retu
ENDIF
SELECT a
SEEK tunt+STR(inw,7)
IF NOT FOUND()
DO alrt WITH "Master not found"
CLOSE ALL
RETURN
ENDIF
IF vch_no>0
DO alrt WITH "A/c Posted"
CLOSE ALL
RETURN
ENDIF
SELECT b
SEEK tunt+STR(inw,7)
IF NOT FOUND()
DO alrt WITH "Detail not found"
CLOSE ALL
RETURN
ENDIF
SELECT a
REPLACE mrr_dt_flg WITH flg1
REPLACE vch_dt_flg WITH flg2
*CLOSE ALL
DO alrt WITH "Inward updated Successfully!"
RETURN
推荐答案
READ尝试使用 阅读周期。
Instead of READ try to use READ CYCLE.
当然，您必须找到退出此类代码的方法。一种可能的方法是根据一些热键发出CLEAR READ。
Of course, you have to find a way how to exit such code. One possible way is to issue CLEAR READ based on some hotkey.
但是......如果你绑定到FoxPro，你应该考虑Visual FoxPro 9，它可以向你介绍面向对象的世界 如果您不依赖于FoxPro，那么请考虑免费的Visual Studio和SQL Server Express。它会将您提升到
更多的现代编程平台。
BUT ... if you are tied to FoxPro you should think about Visual FoxPro 9 which can introduce you to the Object Oriented world. If you are not tied to FoxPro then think about free Visual Studio and SQL Server Express. It will elevate you to more modern programming platforms.
需要了解有关Visual FoxPro的更多信息？看看这些免费视频：http：//www.garfieldhudson.com/freevideos.aspx
Need to learn more about Visual FoxPro? Look at these free videos: http://www.garfieldhudson.com/freevideos.aspx
还有很多关于Visual Studio的介绍性资料。
Many introductory materials about Visual Studio are also available.
这篇关于程序未运行Contine的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
