zsp643295840 发表于 2015-6-11 11:22 & c: ?7 g4 g) C* P0 s& h" |- i
再来个简洁版的
0 R) V2 P ]5 S" c7 M8 y9 @is% R w2 U7 q5 n. e6 r S3 ]
i,j,num,val:integer; 1 W3 M1 p6 G8 d+ B( v* G
非常感谢,可是程序上的obj.delete;这段话会把表格其他的数据都删除了,能只删除表格第3列的数据吗?
' v( E; ]4 V' w* z7 u; a( d另外 你可以帮我解答下程序里的疑问吗?我找不出书本可以学习这些语句
! t+ H% X+ {1 M* ~6 ? for i:=1 to num loop! x& v" ~9 V( Y* }+ s
isrepeat:=true;
5 i& z! h2 @7 ? repeat
4 e4 V, T( D* C2 x val:=z_uniform(1,1,num+1);
' G8 `2 Q9 n0 C' s6 _ obj.cursorx:=3; 这句和下句用法?我知道跟去重有关,可以不知道为什么这么用,为什么值为3和1
2 l; h1 w0 B$ X& k7 p0 u obj.cursorx:=1;6 Y' D: p; o1 @
if not obj.find({3,1}..{3,num},val) then
B. g# a5 W& x% y% S' x' l& V obj[3,i]:=val;% F6 C8 N% s5 L K* x* }+ H
isrepeat:=false;( I+ p: Q W$ a3 N% G
end;
; w7 R# y5 |; k9 }6 `5 } U3 l until not isrepeat;, S8 U, t( r S" P6 u7 d& i- h8 O
next;
/ X* O6 @, B) Y- l |