当前位置: 代码迷 >> VFP >> 文本编辑表单有关问题
  详细解决方案

文本编辑表单有关问题

热度:5407   发布时间:2013-02-26 00:00:00.0
文本编辑表单问题
文本编辑表单问题
在未连编状态下运行正常,连编后运行提示“windwos fhandle <0”
我用的是顶层表单做菜单,如果是隐藏了VFP窗口的原故,请教各位老师用什么办法能正常运行该文本编缉表单?谢谢了!
try:
*---判断并创建文本文件---*
If Adir(laMyArray,'记事本.txt')>0 
ELSE
strtofile("","记事本.txt")
EndIf  
*---写文件---*
qq="d:\qy\记事本.txt" 
If File(qq) 
  Fhandle=Fopen(qq,12) 
  If Fhandle>0 
  =Fseek(Fhandle,0,2) 
  =Fwrite(Fhandle,Chr(13)+Chr(10)+thisform.text1.value) 
  =Fclose(Fhandle) 
  Else 
  Messagebox("windwos fhandle <0",48) 
  Endif 
ENDIF


------解决方案--------------------------------------------------------
探讨
在项目中排除此TXT文件没有?
没有排除