zsp643295840 发表于 2015-6-11 11:22 
9 w, E( d2 [, b7 {; r再来个简洁版的 u! l1 m2 v2 e& r" |
is
1 C! A; H& [. J- x# X i,j,num,val:integer;
9 h9 j7 J O- d- k非常感谢，可是程序上的obj.delete;这段话会把表格其他的数据都删除了，能只删除表格第3列的数据吗？
5 V, a0 S0 c4 Q' q m, Z6 O+ q8 f' p另外 你可以帮我解答下程序里的疑问吗？我找不出书本可以学习这些语句
( l& G, \6 D: Q2 @* L3 h for i:=1 to num loop! q' \) {3 ~0 h
isrepeat:=true; 3 }0 b" ?( j2 a0 U# B; C
repeat, _! a" q, i! n* R$ o) O
val:=z_uniform(1,1,num+1);
7 O2 b6 @9 @5 p, q" y, A/ U obj.cursorx:=3; 这句和下句用法？我知道跟去重有关，可以不知道为什么这么用，为什么值为3和1$ R3 q4 _3 ?4 K5 U3 V. x- F
obj.cursorx:=1;
( l) p" w/ S: F2 e8 h$ B8 l if not obj.find({3,1}..{3,num},val) then
" B$ q/ W! Y& `: F6 `/ Z7 b% K ^ obj[3,i]:=val;& }* }! _ `+ ]: N+ H4 {* ^
isrepeat:=false;
! q7 p) b# \) l0 r5 _ end;# `, w: ]/ ?% b8 \/ J# L
until not isrepeat;6 ^3 w4 T3 O3 ^
next;, q9 F2 y9 {( A' F' M- i- s
|
[复制链接]
发表于 2015-6-11 09:57:59
楼主