没有人帮，自己又不懂简化，难啊。

没弄明白楼主的思路，无法帮忙

从科学角度来说，每期每个号码概率都是一样的，怎么能从之前的走势来判断以后的概率？这是独立事件啊

看来没人明白我的心，

Select 1
Use 01
Go Top
Do While Eof() = .F.
    For i = 1 To 10
        a = Field(i)
        If &a > 0
            For h = 11 To 131
                IF i = 10
                   c = 0
                ELSE
                   c = i
                ENDIF
                If Alltrim(Str(c))$Field(h)
                    b = Field(h)
                    Replace &b With &a
                Endif
            Endfor
        Endif
    Endfor
    Skip
Enddo
k = 11
Do While k <= 130
    a = Field(k)
    Go Top
    c = 0
    Do While Eof() = .f.
        IF &a > 0
            c = c+1
        Endif
        If c > 0 AND &a > 0
           Replace &a With c
        Endif
        Skip
    ENDDO
    k = k+1
Enddo
今天早上给你弄出来 没想到你就结帖了  楼主的设计思路有待改进，不然整的程序很复杂

Select 1
Use 01
Go Top
Do While Eof() = .F.
    For i = 1 To 10
        a = Field(i)
        If &a > 0
            For h = 11 To 131
                IF i = 10
                   c = 0
                ELSE
                   c = i
                ENDIF
                If Alltrim(Str(c))$Field(h)
                    b = Field(h)
                    Replace &b With &a
                Endif
            Endfor
        Endif
    Endfor
    Skip
Enddo
k = 11
Do While k <= 130
    a = Field(k)
    Go Top
    c = 0
    Do While Eof() = .f.
        IF &a > 0
            c = c+1
        Endif
        If c > 0 AND &a > 0
           Replace &a With c
        Endif
        Skip
    ENDDO
    k = k+1
Enddo
 我把表名字改成了01.dbf 今天早上给你弄出来 没想到你就结帖了  楼主的设计思路有待改进，不然整的程序很复杂

[ 本帖最后由 ktliaobo 于 2014-2-20 16:11 编辑 ]

收到的鲜花

• tlliqi 于 2014-03-01 11:53 送鲜花  20朵   附言：加分

非常感谢ktliaobo，我今天才看到您给我的回帖，谢谢您对我的帮助。

啊，有不完善的地方：从第11列到130列，符合条件的每一列最后一个数值递增应是在该列倒数第二行的基础上递增，而不是该列的所有累积递增。比如说：最后一行的“一”>0；第11列“出123”的倒数第二行是1，那么第11列“出123”的最后第一行应是2；如果第11列“出123”的倒数第二行是6，那么第11列“出123”的最后第一行应是7；第11列“出123”的倒数第二行是空白，那么第11列“出123”的最后第一行应是1。

我只会提问题，却解决不了问题，我是不是很笨？麻烦您再帮帮我。

做了一个福彩30选七的程序，有兴趣的话，给你。联系QQ254339012.

我再试试看  调试下