千万不要用递归做这种事情，一般VB6.0在处理递归时，
每调用一个函数它都将分配一块内存地址出来，并且不会自动释放，因为递归本身就是在
函数内部再次调用函数本身，所以它也不能释放。
按照上面的理论，楼主应该知道为什么会内存空间溢出(不够)了。
建议：把递归的函数，拆成几个函数来调用，而不是一味的只调用这一个函数

但是我这不是函数自己调用自己啊，我是按计算按钮后循环调用该函数。

计算的数值超过了允许的范围。

我的代码如下
For i = 0 To maxDate
        fx = fsx(i)
        Fy = fsy(i)

        Fs = True
        Call pdqx(slc(0), 0, 0)
        If fslc <> "" Then
            MsfgFs.Rows = MsfgFs.Rows + 1
            rowIndex = MsfgFs.Rows - 1
            reOrder (MsfgFs.Object)
            MsfgFs.TextMatrix(rowIndex, 1) = fx
            MsfgFs.TextMatrix(rowIndex, 2) = Fy
            MsfgFs.TextMatrix(rowIndex, 3) = fslc
            MsfgFs.TextMatrix(rowIndex, 4) = fspj
        End If
    Next

能不能把上maxDate分成两个小于1000的数字来循环解决呢。

就像这样?

for i=0 to A
    Function
next i

如果是这样的话，你需要把代码贴出来看看了，不一定是我说的问题，可能
写的代码里面存在问题,

For i = 0 To maxDate 
        fx = fsx(i) 
        Fy = fsy(i) 

        Fs = True 
        Call pdqx(slc(0), 0, 0) 
        If fslc <> "" Then 
            MsfgFs.Rows = MsfgFs.Rows + 1 
            rowIndex = MsfgFs.Rows - 1 
            reOrder (MsfgFs.Object) 
            MsfgFs.TextMatrix(rowIndex, 1) = fx 
            MsfgFs.TextMatrix(rowIndex, 2) = Fy 
            MsfgFs.TextMatrix(rowIndex, 3) = fslc 
            MsfgFs.TextMatrix(rowIndex, 4) = fspj 
        End If 
    Next 
=========================================
问题可能有一个，那就是maxDate数值可能过大

就是比较大，如何解决呢。

pdqx这函数做什么用的

引用 8 楼 m60a1 的回复:

pdqx这函数做什么用的

用来计算 MsfgFs.TextMatrix(rowIndex, 1) = fx 
            MsfgFs.TextMatrix(rowIndex, 2) = Fy 
            MsfgFs.TextMatrix(rowIndex, 3) = fslc 
            MsfgFs.TextMatrix(rowIndex, 4) = fspj 
几个数值的

把声明弄出来吧

Public Sub pdqx(ByVal lc As Double, ByVal jd As Double, ByVal jl As Double)

你的变量声明

Public Sub pdqx(ByVal lc As Double, ByVal jd As Double, ByVal jl As Double) '计算坐标
    Dim s As Double
    Dim o As Double
    Dim j As Double

    Dim tempH As Double
    Dim tempR As Double

    Dim t As Double
    Dim z As Double
    Dim tzi As Integer
    Dim cx As Double
    Dim cy As Double
    Dim cJD As Double
    Dim cJL As Double
    Dim fyQxfwj As Double
```````````````
end sub

IFLY
当我没来过这帖

知道了，现在我临时只想到个笨办法你可以试一下

写一个函数，函数内容就是你的for循环
将for循环中maxData进行处理
dim intGroupTemp as intger      :      intGroupTemp=1000
GOON:
if (maxData-intGroupTemp)<1000 then
    function(这是个for循环函数)
    exit function
else
    function(这是个for循环函数)
    doevents
    maxData=maxData-1000
    goto GOON
end if 

这个办法笨了点，暂时只想出来这个办法，我手写的有写得不规范的地方自己改下
   

谢谢，我先试试看。

在pdqx函数内部注意释放应该可以

引用 17 楼 jhone99 的回复:

在pdqx函数内部注意释放应该可以

如何内部释放呢？

要看你的具体代码

中间就是一大段数值的计算。