都努力啊啊

[ 本帖最后由 jinanshui 于 2013-7-19 18:25 编辑 ]

VFP版本？
编程的关键是思路，如果意思表达不到位，.......

VFP9.0

不太明白楼主想做什么，想请大家帮助解决什么问题

1.a表是一个已有数据的表含有79个记录，b表的结构和a表一样含有
2.现在把列表框假如1-35个整数，然后随机从列表框中取出五个不同的数作为一个数组，循环取80组将其加入到b表
即
FOR k=1 to 80
    thisform.List1.Clear
    FOR i = 1 To 35   
      thisform.List1.AddItem(TRANSFORM(i))
    NEXT  
    FOR i = 1 To 5     
        n = Int(Rand() *thisform.List1.ListCount)   
        d(i) = thisform.List1.List(n)
        ? D(I)
        IF n>0   
            thisform.List1.RemoveItem(n)
        ENDIF
    NEXT
3,。比较b表和a表的前79条记录，是否完全对应相同，第一条与第一条相同，第二条与第二条相同。。。。。
如果完全对应相同，输出b表，为了要b表的第80条记录，如果不相同重新循环取得b表数据，直到满足为止。

谢谢各位大侠无私的爱。

，输出b表，，，。

谢谢各位大侠无私的爱。
楼主的这个程序应该是一个彩票程序，从1到35中随机取得5个不相同的数，组成一组数据，循环80次，取得80组数据，将其加入B表中，对比前，首先要每条记录重新排序，否则无法对比。

1.a表是一个已有数据的表含有79个记录，b表的结构和a表一样含有
2.现在把列表框假如1-35个整数，然后随机从列表框中取出五个不同的数作为一个数组，循环取80组将其加入到b表
即
FOR k=1 to 80
    thisform.List1.Clear
    FOR i = 1 To 35   
      thisform.List1.AddItem(TRANSFORM(i))
    NEXT  
    FOR i = 1 To 5     
        n = Int(Rand() *thisform.List1.ListCount)   
        d(i) = thisform.List1.List(n)
        ? D(I)
        IF n>0   
            thisform.List1.RemoveItem(n)
        ENDIF
    NEXT
3,。比较b表和a表的前79条记录，是否完全对应相同，第一条与第一条相同，第二条与第二条相同。。。。。
如果完全对应相同 是指每条记录各字段值相同，即视为完全相同，还是79条记录都相同，即视为完全相同
，输出b表，
为了要b表的第80条记录 要做什么-------看变化趋势，这里别笑话我
，
如果不相同重新循环取得b表数据 什么不相同-------达不到完全对应相同，79条记录有一条不同也不行
，直到满足为止 满足什么条件
。

谢谢各位大侠无私的爱。
楼主的这个程序应该是一个彩票程序，从1到35中随机取得5个不相同的数，组成一组数据，循环80次，取得80组数据，将其加入B表中，对比前，首先要每条记录重新排序，否则无法对比。 -----不排序，按出球的顺序

1.b表中怎么会有0，我明白了，改加1

我想是否转化为数组比较

无用功，直接复制A表数据不就行了，用得着这么麻烦吗