[Foxpro]Menampilkan Nomor Urut kesamping di report foxpro

langsung aja yaa hemat kouta nih😀, punya table begini

Capture4

dan ingin menampilkan kedalam report seperti ini

Capture4

Naa klo diliat dari contoh laporannya terdapat field yang sama kan, klo kita groupkan itu ada 3 kolom seprti gambar berikut

Capture4

OK berikut koding foxpronya


****
* Aturan Pakai, Buat Cursor dengan nama field yg sama seperti tabel asli dengan di ikuti angka urut
* Exp :
* -Tabel Asli
* + NamaTabel ( Kode,Nama, Alamat)
*
* - Tabel Cursor
* Create Cursor NmCursor (Kode1,Nama1,Alamat1,Kode2,Nama2,Alamat2,Fieldn+1,....)
*
* Arti Fieldn didalam cursor : n adalah kolom dalam 1 baris, (kode1,nama1,alamat1) > adalah Kolom Ke-1 baris ke-1
* (kode2,nama2,alamat2) > adalah Kolom Ke-2 baris ke-1, dst...
* Selanjutnya untuk dreport sesuaikan dengan cursornya
***
Create Cursor cDatax ( ;
Urut1 C(3),Nama1 C(40),Jkel1 C(1),;
Urut2 C(3),Nama2 C(40),Jkel2 C(1),;
Urut3 C(3),Nama3 C(40),Jkel3 C(1);
)

Create Cursor cData ( Urut C(3),Nama C(40), Jkel C(1))
Insert Into cData Values ('01',"Anda1","P")
Insert Into cData Values ('02',"Anda2","P")
Insert Into cData Values ('03',"Anda3","L")
Insert Into cData Values ('04',"Anda4","P")
Insert Into cData Values ('05',"Anda5","L")
Insert Into cData Values ('06',"Anda6","L")
Insert Into cData Values ('07',"Anda7","P")
Insert Into cData Values ('08',"Anda8","L")
Insert Into cData Values ('09',"Anda9","P")
Insert Into cData Values ('010',"Anda10","L")

i=1
ii=0
SELECT cDatax
APPEND BLANK
Select cData
Scan
ii=ii+1
lcUrut=cData.Urut
lcNama=cData.Nama
lcJkel=cData.jKel
If ii❤ OR ii=3 && 3 adalah jumlah Kolom dalam Cursor
Select cDatax
Go i
field1="Urut"+Alltrim(Str(ii)) &&Nama Kolom di cursor
Replace &field1 With lcUrut

Select cDatax
Go i
field2="Nama"+Alltrim(Str(ii)) &&Nama Kolom di cursor
Replace &field2 With lcNama
Select cDatax

Go i
field3="Jkel"+Alltrim(Str(ii)) &&Nama Kolom di cursor
Replace &field3 With lcJkel
Endif
If ii=3 && 3 adalah jumlah Kolom dalam Cursor
i=i+1
SELECT cDatax
APPEND BLANK

ii=0
Endif
ENDSCAN
SELECT cDatax
lcFile="Reportnya.frx"
*!* CREATE REPORT (lcFile) ;
*!* FROM (ALIAS())
REPORT FORM &lcFile PREVIEW

dan hasilnya

Capture4

vfp is rock , Sama kan, OK mg bermafaat

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: