basic - 无法从 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

从数据库中保存详细信息的代码

Answer 1

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

1. phonenos 的文件句柄没有打开。

   You could be attempting to access the file from a bad location, it may not exist, or it could be write protected.

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

   Is counter going outside the range of the array? Is this a zero (0) or one (1) based array?