1160x
004638
2020-08-19

问题

在 VBA 中使用 RFEM 进行编程时出现以下问题: “无法分配给数据字段。” 我该怎么办?


回复:

在这种情况下,EXCEL VBA 中存在一个我们无法修复的错误。 因此创建了一个新的对象 RFEM.RfLine(而不是 RFEM.Line),您可以使用该对象继续您的工作。 这是一个简短的示例:

子测试_RfLine()
    
Dim iModel As RFEM5.IModel2
Set iModel = GetObject(, "RFEM5.Model")
iModel.GetApplication.LockLicense
    

出错时转到 e
    
Dim iModelData As RFEM5.IModelData2
设置 iModelData = iModel.GetModelData
    
Dim lines() 如 RFEM5.RfLine
线 = iModelData.GetLines
    
    
e: 如果 Err.Number <> 0 那么 MsgBox Err.Description, , Err.Source
    
设置 iModelData = 无
iModel.GetApplication.UnlockLicense
设置 iModel = 无
    
末端接头