zsp643295840 发表于 2015-6-11 11:22 
/ u& p: y1 ?5 I1 Z再来个简洁版的
4 S) ]# X8 Z/ u A. j& s5 dis
& u4 W0 Z+ @" x% H i,j,num,val:integer; : E U% h9 G/ b. O. X4 W
非常感谢,可是程序上的obj.delete;这段话会把表格其他的数据都删除了,能只删除表格第3列的数据吗?1 ~3 D, d7 X+ e" ?
另外 你可以帮我解答下程序里的疑问吗?我找不出书本可以学习这些语句+ q5 [' ^3 M0 c8 c6 O' f3 k- ?
for i:=1 to num loop/ o9 |( q6 v; A6 w- O' v9 p+ G/ X
isrepeat:=true; - t" ~$ ^& ^1 ?& E+ O
repeat1 b4 p) y& C, Y h5 s, m3 r6 Q
val:=z_uniform(1,1,num+1);
# J6 S7 J6 G' c% C. g obj.cursorx:=3; 这句和下句用法?我知道跟去重有关,可以不知道为什么这么用,为什么值为3和1% V6 @; u6 q6 m4 C, Q3 A! e+ @
obj.cursorx:=1;8 a. y5 l- u+ |/ }2 l; M
if not obj.find({3,1}..{3,num},val) then
8 e+ u } f8 W% F obj[3,i]:=val;% T) g+ H! v7 A) ~1 Q
isrepeat:=false;
% e D5 j( v. j) m end;
7 t3 t/ ?7 @& U until not isrepeat;
! M8 j4 E' M2 p' x3 E2 w7 W2 j+ R next;3 L( C8 @* X, k# W R+ j' H# _% K- f
|