zsp643295840 发表于 2015-6-11 11:22 
+ U: h e) t2 |/ ]! g3 o再来个简洁版的. H/ Z+ }6 M d# c# w7 h& V
is0 f+ P- w6 @$ n M( a
i,j,num,val:integer;
0 a- f8 h4 a( v* F# d7 ^非常感谢,可是程序上的obj.delete;这段话会把表格其他的数据都删除了,能只删除表格第3列的数据吗?
% A- s; G8 l9 w/ S l另外 你可以帮我解答下程序里的疑问吗?我找不出书本可以学习这些语句
+ h) l% u; V' J' N0 o+ A. t4 Z for i:=1 to num loop2 d4 Z) u* ^1 |: q6 U# m
isrepeat:=true;
3 d5 C1 N! p1 o7 b repeat
0 o) k" P( f% D0 I val:=z_uniform(1,1,num+1);4 n1 o- _ R. X. U2 ~, U) P
obj.cursorx:=3; 这句和下句用法?我知道跟去重有关,可以不知道为什么这么用,为什么值为3和11 E( Z* j- [; T2 Q# y, `
obj.cursorx:=1;* `; d% s/ F$ b2 r6 O
if not obj.find({3,1}..{3,num},val) then; U n6 w# K) }7 c7 ?, b6 v
obj[3,i]:=val;" r* R& v, W1 N8 P
isrepeat:=false;
" x6 r! f; q- r# V& W. [2 s) } end;9 J, v& t. Y" ]6 C) L+ O8 R" c
until not isrepeat;
: R* _/ \2 b/ Z) x2 \$ y next;+ q8 Y N! c. U5 x6 x
|