zsp643295840 发表于 2015-6-11 11:22  ; v# p" K; i7 Y/ j* ~
再来个简洁版的
' ]- @% H1 Q1 |% e7 iis
* Y7 `) S' I' w7 |$ y" s0 G i,j,num,val:integer;
' h/ _- z* F, i) a- S非常感谢，可是程序上的obj.delete;这段话会把表格其他的数据都删除了，能只删除表格第3列的数据吗？8 }) ^) Y: {% L5 l7 `/ q; y, D
另外 你可以帮我解答下程序里的疑问吗？我找不出书本可以学习这些语句9 q$ m* s& T2 e2 q- ~" G2 F- B# { i+ |, x
for i:=1 to num loop( |" v( r+ p$ C K: P2 E: I7 ?
isrepeat:=true; 7 v, c3 F! e* Q" }0 J' u5 g
repeat$ t/ G% L) M+ q' O4 ], A5 y6 c1 m
val:=z_uniform(1,1,num+1);& }' o0 j: S+ w
obj.cursorx:=3; 这句和下句用法？我知道跟去重有关，可以不知道为什么这么用，为什么值为3和11 f, ^0 c9 M& Q7 H" z) B
obj.cursorx:=1; t8 n! z/ F4 v# z' o
if not obj.find({3,1}..{3,num},val) then5 m Q4 A7 v5 c
obj[3,i]:=val;3 S- m$ t% }8 M* Y8 H/ ?3 q
isrepeat:=false;
$ @) j+ l0 j# m8 m0 O# y9 [ end;8 I* @. G0 Q! Y
until not isrepeat;. h0 d" |" N' W. } b
next;$ S- a) E" t& R) F) Y. V; Q
|
[复制链接]
发表于 2015-6-11 09:57:59
楼主