zsp643295840 发表于 2015-6-11 11:22 : x) g6 ]) N, \
再来个简洁版的
$ `( _# g8 y$ {' X; c1 Uis; W( H) V1 R* q8 e3 p
i,j,num,val:integer; % {- C9 K z. v7 b% b: r k2 [7 @
非常感谢,可是程序上的obj.delete;这段话会把表格其他的数据都删除了,能只删除表格第3列的数据吗?, ^# V: g; I' @. L0 [" s
另外 你可以帮我解答下程序里的疑问吗?我找不出书本可以学习这些语句 _, J( E8 ^( d& l
for i:=1 to num loop
/ V5 i8 e. n7 Y3 W1 H isrepeat:=true;
) N) D4 C! |) I% e* m3 R repeat+ e5 j- z: p/ Y. {: q2 G
val:=z_uniform(1,1,num+1);
4 _8 |& T( _. x- _% x9 P* X obj.cursorx:=3; 这句和下句用法?我知道跟去重有关,可以不知道为什么这么用,为什么值为3和1
5 N7 I5 A# V b& l# L% [0 F obj.cursorx:=1;8 m' f: A0 p0 t( K
if not obj.find({3,1}..{3,num},val) then% m6 n4 L5 T6 q) p; A% M. ~
obj[3,i]:=val;
! s, w( G p8 T- g5 z$ _ isrepeat:=false;( Z6 w) X8 {8 ~& a& C9 p
end;
& T! S" f; ^- o i, _3 i+ q5 e7 M( e until not isrepeat;
, _& y( f. O6 n: q& u9 J next;) L: l4 r) g' ~5 u
|