当前位置: 代码迷 >> VFP >> 为啥脱离VFP9环境运行EXE文件至如下代码便死机
  详细解决方案

为啥脱离VFP9环境运行EXE文件至如下代码便死机

热度:9596   发布时间:2013-02-26 00:00:00.0
为什么脱离VFP9环境运行EXE文件至如下代码便死机
我有年、月、日、时四个花甲Grid表,每个表的12个地支列Text1的GotFocus方法均有相类似的如下代码:
SELECT 花甲表_年
sum_RC = recno() + 1 && 行号与列号之和
IF sum_RC/2 = int(sum_RC/2) && 是偶数的取之:
  Cur_row = iif(RECNO()=10,"a",STR(RECNO(),1))
  ThisForm.Text1.Value = "y" + Cur_row + "1" + ALLTRIM(id) + "子>"
  ThisForm.Edit1.Value = SUBSTR(子,9)
  mcLab_y = ALLTRIM(id) + "子鼠年" && 年标签公共变量
  cur_dm_y = Cur_row + "1" && 当前年代码公共变量
  
* Get_Wuxing() 取五行(金木水火土):
nWx_row = RECNO()
SELECT 0
USE 五行表_年
GO nWx_row
cur_wx_y = LEFT(ALLTRIM(子),2)
WAIT "年" + cur_wx_y WINDOW
USE
SELECT 花甲表_年

  
  ThisForm.gif_y.Picture = SYS(5) + CURDIR() + "gif生肖\1鼠1.gif"
  ThisForm.Txt_y.Value = "年" + cur_wx_y
  ThisForm.Optiongroup_data.Option1.Enabled = .T. && 年选项按钮可选
ELSE
......

在VFP9环境下运行EXE文件并没有什么问题,在脱离其环境,仅用“gdiplus.dll,msvcr71.dll,vfp9r.dll,vfp9rchs.dll,reportoutput.app,reportpreview.app”拷贝到其路径下运行就列机
而且是运行到“取五行(金木水火土)”代码段时死机,开头写成“Get_Wuxing()”函数,以为GotFocus不支持函数,后来改为上述代码段时也死机

“gdiplus.dll,msvcr71.dll,vfp9r.dll,vfp9rchs.dll,reportoutput.app,reportpreview.app”用于其他程序开发脱离VFP9环境运行却是很正常的

不知为什么,如何解决,敬请老师、高手们指点迷津为盼
谢谢

------解决方案--------------------------------------------------------
尽量不要用 汉化版,不过用 汉化版 的帮助文件还是可以的。
------解决方案--------------------------------------------------------
探讨
我有年、月、日、时四个花甲Grid表,每个表的12个地支列Text1的GotFocus方法均有相类似的如下代码:
SELECT 花甲表_年
sum_RC = recno() + 1 && 行号与列号之和
IF sum_RC/2 = int(sum_RC/2) && 是偶数的取之:
Cur_row = iif(RECNO()=10,"a",STR(RECN……
  相关解决方案