zsp643295840 发表于 2015-6-11 11:22 " N, x# k7 s% Q) i6 H5 V1 \2 g
再来个简洁版的. Z5 F' v# V" {/ ]' S3 p Y
is, g, y# L1 e, I" @1 f: k
i,j,num,val:integer;
' f% g( x7 w; d# o6 ]非常感谢,可是程序上的obj.delete;这段话会把表格其他的数据都删除了,能只删除表格第3列的数据吗?
0 Z9 ?! x0 @0 m另外 你可以帮我解答下程序里的疑问吗?我找不出书本可以学习这些语句6 _5 H+ {' w( e6 h
for i:=1 to num loop7 F0 X) \5 I6 N9 |6 |( c% p
isrepeat:=true; A) F/ n7 K* z$ C1 Z! w, F# _
repeat
! ?9 y6 f+ P1 ?4 \ val:=z_uniform(1,1,num+1);
]& E' Y( @9 H+ y! r/ j. D obj.cursorx:=3; 这句和下句用法?我知道跟去重有关,可以不知道为什么这么用,为什么值为3和16 Q0 O$ @* w& U* F' V. V- U5 A
obj.cursorx:=1;
7 w6 k7 E: x7 j! ]6 _8 _ if not obj.find({3,1}..{3,num},val) then
+ _, f+ N- I8 @% [' L( ]* J obj[3,i]:=val;
$ d' h; v9 C$ P' r* D9 P isrepeat:=false;5 \. B u2 b1 b( p! p9 @2 n
end;
. }. E% p) b- {& n until not isrepeat;
6 W; I% `! S" a6 U3 ~0 a next;
" u! P# R0 x# q6 _; y |