我的Aspen版本是2006.5，VB6.0 按照那个手册上的程序和实例去做的，但是一直出现“424要求对象”错误 错误显示在 Set ihColumn = ihAPSim.Tree.Data.Blocks.B6这一行 代码如下： Private Sub Command5_Click() 'This example retrieves scalar variables from a block Dim ihColumn As IHNode Dim nStages As Long Dim buratio As Double 'navigate the tree to the RADFRAC block Set ihColumn = ihAPSim.Tree.Data.Blocks.B6 'get the number of stages nStages = ihColumn.Input.Elements("NSTAGE").Value 'Get the boilup ratio buratio = ihColumn.output.Elements("BU_RATIO").Value MsgBox "Number of Stages is:" & nStages _ & Chr(13) & "Boilup Ratio is:" & buratio, , "GetScalarValuesExample" End Sub 显示全部