zsp643295840 发表于 2015-6-11 11:22  : K' n! I7 O: f3 P. v5 r% l/ m
再来个简洁版的
; b& H9 Y" b) h' q3 x- L+ Fis
* b/ n* r8 S# q1 K: ^. R i,j,num,val:integer;
; w [$ z) d# t* y8 B# t非常感谢，可是程序上的obj.delete;这段话会把表格其他的数据都删除了，能只删除表格第3列的数据吗？. c) Z3 b {7 f2 {- n$ B
另外 你可以帮我解答下程序里的疑问吗？我找不出书本可以学习这些语句( }% \- A! @7 w P% W
for i:=1 to num loop/ w( J9 }5 Z/ ?, m! c+ k% U. [
isrepeat:=true;
9 W9 ?" ]8 F' h/ { repeat7 y/ B# ~- ^: Q, ~$ b
val:=z_uniform(1,1,num+1); `9 s- e2 V" b$ k0 A& A1 k
obj.cursorx:=3; 这句和下句用法？我知道跟去重有关，可以不知道为什么这么用，为什么值为3和1$ n5 ?& y* n2 S" q* f
obj.cursorx:=1;
1 U) ~; q. H" b' f4 y( R if not obj.find({3,1}..{3,num},val) then
' C7 d p n3 Q& G/ C, D% O& e obj[3,i]:=val;
* w( b- Q o# ^" I% l) \ isrepeat:=false;# v. I' O# d. h& ?+ {8 y
end;; a f. Y+ {+ r6 {0 t2 N
until not isrepeat;6 p' ?- f+ F# y% E
next;0 B9 V4 b: O' j+ ]
|
[复制链接]
发表于 2015-6-11 09:57:59
楼主