已知表A和数组qqq，数组qqq中有7个元素（1，2，4，8，18，38，82）；
1、设计程序首次运行，按表A序号顺序从小到大逐行更新投注数；
当结果=.f. 时，投注数=0
当结果=.t.时，投注数仍为0，但在下一条记录开始进行更新本期投注，数值从数组的元素1开始，，一直到循环到最后一个元素值；
2、在数组元素上下标循环范围内，如果结果=.t.，则下条投注数从元素1重新开始加倍投注；
3、如果最后一个元素值投注后， 结果仍为.f.,则下一行记录投注数为0，不再投注，直到下一个结果=.t.时，再次启动投注，直至将表中所有记录更新完毕；
注：正确投注已在表A中添加，可参考对比。

[此贴子已经被作者于2019-12-6 09:02编辑过]

LOCAL  row1 As Integer, row2 As Integer, irow As Integer, iArray As Integer
row1 = 1
USE 预测
blank all fields 本期投注
row2 = reccount()+1
DIMENSION qqq(7)
LOCAL lCanChipin As Boolean
qqq(1)=1
qqq(2)=2
qqq(3)=4
qqq(4)=8
qqq(5)=18
qqq(6)=38
qqq(7)=82
irow = row1
DO while  irow < row2
    If lCanChipin  Then
        iArray = 0
         ENDIF
        ENDDO
        Do while iArray < alen(qqq)  
            UPDATE 预测 SET 本期投注=qqq(iArray)  WHERE RECNO()=irow  
            If 结果=.t. THEN   
                iArray = 0
            Else
                iArray = iArray + 1
            EndIf
            If iArray <= alen(qqq) Then
            irow = irow + 1
        LOOP
          If 结果=.f. THEN  
            lCanChipin = False
        Else
        EndIf
        irow = irow + 1
    Else
        If  结果=.f. THEN      
             UPDATE 预测 SET 本期投注=0  WHERE RECNO()=irow  
        Else
            UPDATE 预测 SET 本期投注=0  WHERE RECNO()=irow  
            lCanChipin = True
        EndIf
    irow = irow + 1
    ENDIF
     LOOP

太难了，写到这儿不会写了，VB和VF还是有很大差距的，没有Do Until这个命令，老师帮忙再看下，VFP如何改，谢谢了！

[此贴子已经被作者于2019-12-7 10:48编辑过]