Author Topic: bagaimana membuat penomoran berulang  (Read 410 times)

0 Members and 1 Guest are viewing this topic.

Offline deduwi

  • Newbie
  • *
  • Posts: 6
bagaimana membuat penomoran berulang
« on: August 06, 2016, 02:07:45 AM »
setiap kelipatan 10 nomor berulang dan diselingi dengan mengosongkan 3 kolom pada tabel dengan maksimal data hanya 20 record, bagaimana ya perintahnya ? maklum newbie
contoh
1
s/d
10
kolom kosong
kolom kosong
kolom kosong
1
s/d
10

Offline tfssts

  • Junior Member
  • *
  • Posts: 165
Re: bagaimana membuat penomoran berulang
« Reply #1 on: August 06, 2016, 12:40:35 PM »
Mungkin seperti ini..

CREATE CURSOR qtest (nomor n(2))
*misal 1 tabel isi 20 reccord
vtbh = 3    && jml baris kosong
vbts = 20  && batas baris per tabel
DO proses WITH vtbh, vbts
GO top
BROWSE NOWAIT
WAIT WINDOW 'total reccord:' ;
+ TRANSFORM(RECCOUNT())

PROCEDURE proses
LPARAMETERS n1, n2
vrow = 1
vn = 10 + n1
a = .t.
DO WHILE a
 FOR n = 1 TO vn
  ?vrow
  IF n > 10
   APPEND BLANK
  ELSE
   INSERT INTO qtest VALUES (n)
  ENDIF
  vrow = vrow + 1
  IF vrow > n2
   a = .f.
   EXIT
  ENDIF
 NEXT
ENDDO
ENDPROC