zsp643295840 发表于 2015-6-11 11:22 
1 u9 O) n, y) r b再来个简洁版的
- {' V. O' a$ yis) Y5 Y# r# `* Z( K2 n& `; @ Q
i,j,num,val:integer;
% k. v( b$ {. n非常感谢,可是程序上的obj.delete;这段话会把表格其他的数据都删除了,能只删除表格第3列的数据吗?
, }5 N' Z4 [- A- ~另外 你可以帮我解答下程序里的疑问吗?我找不出书本可以学习这些语句
& ?9 p: D$ X3 L1 E. m9 W for i:=1 to num loop
! i" n7 {1 _& W" `- S; `& C isrepeat:=true; ) l3 _6 `# t, f& `' ~) J$ Y; U
repeat1 I9 a1 U" h( F% t& d8 K! C
val:=z_uniform(1,1,num+1);2 e! S; C' ?, Q" E
obj.cursorx:=3; 这句和下句用法?我知道跟去重有关,可以不知道为什么这么用,为什么值为3和1
% T1 ]/ c9 b; S4 _, Y obj.cursorx:=1;% t- ]7 r. C j" i0 Q
if not obj.find({3,1}..{3,num},val) then
2 I/ ?: r$ b0 m" U obj[3,i]:=val;5 J# s- Q6 u0 B+ H
isrepeat:=false;
3 i! q! z& f7 l' _ end;5 Z* f. {6 K/ Y
until not isrepeat;+ y# q+ m) }6 `5 i
next;
( V4 D& D. k2 E |