zsp643295840 发表于 2015-6-11 11:22 w8 f" n. n: g2 k
再来个简洁版的
4 x8 C" X1 `$ O; N) J# e& iis& e: N* x' [& W& ^. Q) o! d) R6 e- K
i,j,num,val:integer;
6 C! L$ o( N$ h" I2 K$ R; n, U4 M非常感谢,可是程序上的obj.delete;这段话会把表格其他的数据都删除了,能只删除表格第3列的数据吗?9 Z$ }# D# O7 ~0 C, o
另外 你可以帮我解答下程序里的疑问吗?我找不出书本可以学习这些语句 x5 V. ~ D R$ C0 F3 K$ L
for i:=1 to num loop3 |& _- B& k8 g0 e7 j
isrepeat:=true;
$ j# w& Y2 S, R repeat9 C1 _* [- P7 n7 E9 A
val:=z_uniform(1,1,num+1);; T7 {/ e9 U1 |, M2 l. w% L
obj.cursorx:=3; 这句和下句用法?我知道跟去重有关,可以不知道为什么这么用,为什么值为3和1# F- F* M- E7 _9 m" d, F. i4 R
obj.cursorx:=1;
. J% {1 k' L, A2 u$ y if not obj.find({3,1}..{3,num},val) then
# ^$ }+ ?3 p3 n0 P. L* Z8 x obj[3,i]:=val;
X/ M) c8 [ k- G% @$ z3 B* g isrepeat:=false;
+ T2 p+ ]% A" f$ u, \- X$ B" D end;
- Z' [- z0 ]! A; `8 K$ p until not isrepeat;/ T4 ~) \2 U. y0 Q3 A! ?# j$ W
next;
( f) g) ]" }# a( y |