zsp643295840 发表于 2015-6-11 11:22
8 K1 K" ]6 w, |) J! ^再来个简洁版的
# o$ ]6 ~. Y6 Vis/ X8 u+ G2 _/ Z& \
i,j,num,val:integer; / J/ I6 V5 ^2 H, [
非常感谢,可是程序上的obj.delete;这段话会把表格其他的数据都删除了,能只删除表格第3列的数据吗?0 J7 E- y3 d! {9 i
另外 你可以帮我解答下程序里的疑问吗?我找不出书本可以学习这些语句2 }% Y/ M, t! n
for i:=1 to num loop7 P, d3 B6 g4 u. b/ m5 o2 v3 b
isrepeat:=true; 4 e# F* P. I! O8 z* c
repeat
1 E7 t0 X0 ?$ c; A! |9 z val:=z_uniform(1,1,num+1);# w& B; z3 X5 z7 c ?. e Y! N+ ]( U
obj.cursorx:=3; 这句和下句用法?我知道跟去重有关,可以不知道为什么这么用,为什么值为3和1
( m4 a5 {+ @7 d0 n6 o: r9 ^8 b7 r obj.cursorx:=1;# W3 t4 x. e2 D4 r
if not obj.find({3,1}..{3,num},val) then
- T9 w- a$ S a6 | obj[3,i]:=val;# |* K5 X e- ?1 {6 t2 j
isrepeat:=false; |+ D! d! C% v9 P3 Y! d
end;
- y2 e: Y1 m# L8 C5 [/ R0 p+ E until not isrepeat;
9 g0 U4 n* o8 h5 [/ V next;
1 k" c9 |4 T6 v9 }/ B+ ? |