zsp643295840 发表于 2015-6-11 11:22 ! x a: P# I1 m M: D
再来个简洁版的
& d7 s/ G( z2 l7 u# t+ ]is) J2 b M+ f7 x9 j6 s6 u. f6 q
i,j,num,val:integer;
/ X: R0 b5 z/ ~6 Z0 u* d非常感谢,可是程序上的obj.delete;这段话会把表格其他的数据都删除了,能只删除表格第3列的数据吗?+ b6 Y! b+ D2 P$ [/ T6 j
另外 你可以帮我解答下程序里的疑问吗?我找不出书本可以学习这些语句
: h4 k! M- j/ \0 L/ v1 A8 _ for i:=1 to num loop
8 V1 w. ^9 V Z7 F( l isrepeat:=true; 4 u$ I1 }/ I, R% G8 r
repeat& m- g. F7 c _
val:=z_uniform(1,1,num+1);; K J( V- V1 M
obj.cursorx:=3; 这句和下句用法?我知道跟去重有关,可以不知道为什么这么用,为什么值为3和1
# M) y4 a$ w5 Q' u0 I4 s obj.cursorx:=1;
; E# ~2 ]" `, `8 p if not obj.find({3,1}..{3,num},val) then
. _- _, s% R6 v; ^ obj[3,i]:=val;0 ], M6 `9 E5 q# r! d: }3 u. r' k1 r4 x
isrepeat:=false;
) G9 s, E$ Y# w0 R end;
]3 J1 c6 _! M$ C2 z O until not isrepeat;% S8 q+ O. L% b( Y; e( F1 y. r
next;/ _, V6 n/ p/ X, }- G
|