zsp643295840 发表于 2015-6-11 11:22 , w8 k* a) T: k' }
再来个简洁版的% H$ N/ @( R' @4 {
is/ g) J' l" @* s# M2 W! p+ P
i,j,num,val:integer;
& F* Y t! ?- V2 D, o% U非常感谢,可是程序上的obj.delete;这段话会把表格其他的数据都删除了,能只删除表格第3列的数据吗?; C5 f! y4 B# {, Z! i
另外 你可以帮我解答下程序里的疑问吗?我找不出书本可以学习这些语句, w! q, e" h( w1 {4 |; g7 g9 \! G
for i:=1 to num loop8 l& R" {1 m( y* ?% J
isrepeat:=true;
9 R, s3 i9 `2 D; t! }, r+ n" U repeat
9 c0 D4 U! E7 u. c" K f val:=z_uniform(1,1,num+1); s+ G. b1 B3 S6 U' }: F
obj.cursorx:=3; 这句和下句用法?我知道跟去重有关,可以不知道为什么这么用,为什么值为3和1
- l' l+ O, T q m4 m( l% c obj.cursorx:=1;$ r' ]9 X% E7 O j. a. w
if not obj.find({3,1}..{3,num},val) then( b4 }9 @5 Z) G# Y: D
obj[3,i]:=val;) m$ J9 J0 R# b+ r4 v" `* d9 S
isrepeat:=false;
$ L6 |3 Q: s8 u- K+ {% ` T" h7 C! a end;' E& }7 X3 h# [+ q4 F
until not isrepeat;; N/ B; V! j! p& k: F
next;
! e. r9 V4 q/ I$ L1 ^+ d& J |