zsp643295840 发表于 2015-6-11 11:22 / ?: P$ V' i% n9 N
再来个简洁版的
! }7 E" E6 l$ ~8 ?9 Eis
3 `8 ]. f6 K3 \7 n9 o, |3 q i,j,num,val:integer;
+ R; S. u! ]" y# y' E) K3 [非常感谢,可是程序上的obj.delete;这段话会把表格其他的数据都删除了,能只删除表格第3列的数据吗?) m+ F% n, A3 w6 ]7 I; g6 K
另外 你可以帮我解答下程序里的疑问吗?我找不出书本可以学习这些语句1 a+ t( L$ e1 V# i% ^4 q6 P9 C
for i:=1 to num loop% }2 y- E% e4 p' R
isrepeat:=true; 2 _7 W" U( R- {" h; u$ b: K
repeat& ~7 U' Z% O8 ?6 V3 [
val:=z_uniform(1,1,num+1);
3 u. C9 _0 j) R+ \( k% Z obj.cursorx:=3; 这句和下句用法?我知道跟去重有关,可以不知道为什么这么用,为什么值为3和1% u7 y; d7 J4 o. k# Y' z% \
obj.cursorx:=1;
5 t ]( W+ R# m/ I7 t) Q$ I if not obj.find({3,1}..{3,num},val) then
9 s7 l. @" |! D8 k8 ` obj[3,i]:=val;" D+ N5 ]* n2 k5 Y) ~' \
isrepeat:=false;
0 O+ `, Z( ^) F( @! @ end;+ a1 I9 n4 h& W4 Z
until not isrepeat;
' ~7 c$ ]: q- P4 O/ p next;
( U/ g# ]9 U' k8 ? |