Question

我正在尝试使用死人程序处理信息。每次我尝试运行它我得到编译错误无效的外部程序。我之前从未搞过VB6。我一直在寻找解决方案，但我只是得到帮助，说它需要在sub或者其他东西，但线程已经关闭，我还没有能够让他们的解决方案为我工作。的 http://pastebin.com/vR7A7iN5

我认为问题出现在代码的这个特定部分，但我不确定如何将其放入子网或让其工作。

End Type

Dim recout As statrec

Open "\STAT\PP\QM1409\MGA013A\" For Random As #1 Len = 150

num.recs = LOF(1) / 150
Print num.recs

For Count = 1 To num.recs

  Get #1, Count, recout

   If recout.mga = "013" Then

Answer 1

假设这是唯一的不兼容性，这是一个很大的影响，但首先要包含你现在在Plutonix提到的方法中讨论的代码。这绝对是一个错误。但是，如果有更多问题，我不会感到惊讶。

示例：的

Public Sub GetStatRecs()
    Dim recout As statrec

    Open "\STAT\PP\QM1409\MGA013A\" For Random As #1 Len = 150

    num.recs = LOF(1) / 150
    Print num.recs

    For Count = 1 To num.recs
        Get #1, Count, recout
        ....
    Next Count

    ....

End Sub

需要帮助无效的外部源错误

1 个答案: