zsp643295840 发表于 2015-6-11 11:22
' s6 X' j4 I1 x# Z. m再来个简洁版的
% B% K+ l1 z: I$ D0 iis( v8 l' m- x, \* W# c# s: b
i,j,num,val:integer;
% b# Y+ W5 T' [+ f非常感谢,可是程序上的obj.delete;这段话会把表格其他的数据都删除了,能只删除表格第3列的数据吗?
; s, b& [' T( W: w另外 你可以帮我解答下程序里的疑问吗?我找不出书本可以学习这些语句) f: A! o4 }( A3 G/ \5 a" _; o
for i:=1 to num loop- G4 S% v4 n; i# ~) F$ [! C* N; Q
isrepeat:=true;
: C4 K1 ^ Q, _% ~ repeat
4 O$ l$ e/ b# v# P" V. o% q val:=z_uniform(1,1,num+1);; l2 h& A- `8 X6 S2 C
obj.cursorx:=3; 这句和下句用法?我知道跟去重有关,可以不知道为什么这么用,为什么值为3和19 z9 I% o) Y1 I, k# _/ o: X
obj.cursorx:=1;
- n/ r8 Y1 y; {5 S. S if not obj.find({3,1}..{3,num},val) then! j% _ T2 x9 @0 b- ~5 b
obj[3,i]:=val;3 O% i/ x7 P& T
isrepeat:=false;9 z1 Q. c7 i( ^$ H+ Q$ G
end;
- W7 ~8 P: G" N6 P2 u0 \ until not isrepeat;
) k! n- M1 w, r5 ?) W0 l next;4 D. r3 o9 _. R! `, f
|