无法从bbc基本工作中获取代码

Question

  440 DEFPROCsave
  450 phonenos=OPENUP("Phonenos")
  470 PRINT
  480 FOR j= 1 TO counter
  490       PRINT#phonenos,contact{(j)}.name$,contact{(j)}.phone$,contact{(j)}.email$
  500   FOR f = 1 TO 10
  510     PRINT#phonenos,contact{(j)}.response%(1,f)
  520   NEXT f
  530   
  540 NEXT j
  550 CLOSE#phonenos
  560 PRINT "Data saved."
  570 ENDPROC

从数据库保存详细信息的代码我正在尝试将我输入的内容保存到文件中，但错误无效通道在线490出现/

Answer 1

如果您的错误在第490行，则可能会发生以下两种情况之一。

1. 您phonenos的FILEHANDLE未打开。

     

   您可能试图从错误的位置访问该文件，它可能不存在，或者它可能被写保护。

2. 您的contact数组引用了无效的索引项。

     

   counter是否超出了数组的范围？这是基于零（0）还是一（1）的数组？