高手在进来看看吧！

[telent]

我在vb中定义了四个数组，作为参数传递给由vc编写的dll库，结果通过这些数组返回，我的结果返回是正确的，但在vb程序退出的时候提示 "This array is fixed or temparily lock",记住是在vb程序退出时报错哦，请各位高手加以指点！

这是我的源码：
Private Function I_Analyze_DisplaysheetData(tpinfon As tpAnalyze_1_B_Info1, sheetData As Object, strArray() As String) As Long
Dim ii, jj As Integer
Dim Rowcount As Integer '显示数据时记录行
Dim int_DisplayRowNum, int_RowNumber As Integer '另加入
Dim Ans As New ANALYSISLib.Taxanalysis
Dim TotSssr(4) As Single '存放当年的数据
Dim LastTotSssr(3) As Single '存放上一年的数据
Dim sgl_yResult(0 To 2) As Single
Dim double_pYes(1 To 1) As Long
Dim sgl_xBase() As Single
ii = UBound(strArray, 2)
ReDim sgl_xBase(ii)
For jj = 0 To ii
TotSssr(jj) = Val(strArray(0, jj)) '将字符类型转化为数值类型，用于分析；当年数据和调整量
Next jj
For jj = 0 To ii - 1
LastTotSssr(jj) = Val(strArray(1, jj)) '将字符类型转化为数值类型，用于分析；上一年的数据
Next jj
Ans.TaxFactor1 TotSssr, LastTotSssr, sgl_yResult, double_pYes
exit function

[射天狼]

这个问题你好像提过,我在原贴已经回答了,你看看吧,看看程序时执行了什么操作~~

[射天狼]

这个问题你好像提过,我在原贴已经回答了,你看看吧,看看程序时执行了什么操作~~

[betagain]

挺好的啊