zsp643295840 发表于 2015-6-11 11:22 
H/ H( @6 x: ~- y3 E/ N' Y* R再来个简洁版的8 o6 Y$ Y- ]( g. D7 m# H6 }- i
is C! G! u; D& R7 C
i,j,num,val:integer; 0 V# f4 ]4 _0 ?9 C4 W) n" C
非常感谢,可是程序上的obj.delete;这段话会把表格其他的数据都删除了,能只删除表格第3列的数据吗?
* R- H" D, ?1 T6 p另外 你可以帮我解答下程序里的疑问吗?我找不出书本可以学习这些语句
# m3 M7 S) D; K2 Z6 C+ ^2 G- g for i:=1 to num loop+ ]9 k p9 o& O8 R( b
isrepeat:=true; . B/ b& Y0 Y" f" s3 N5 u
repeat
8 o3 k9 d$ f8 r6 G! e+ Z- \ val:=z_uniform(1,1,num+1);
3 [ t0 v/ y% W+ A: N3 F! s, Q obj.cursorx:=3; 这句和下句用法?我知道跟去重有关,可以不知道为什么这么用,为什么值为3和1
. X/ c L$ k' _# \ obj.cursorx:=1;. p7 |+ | a3 ]7 C+ x$ B- ]6 I
if not obj.find({3,1}..{3,num},val) then
% a1 [% Q2 f2 Z6 y obj[3,i]:=val;" A5 C6 I1 J& g' @3 r
isrepeat:=false;
6 x9 Q( D: h) Z X- Q end;
" @6 H- F( r7 X until not isrepeat;
" }4 U0 k6 Z' V& d# k next;5 G( V j( A1 ?+ ~
|