กระทู้เก่าบอร์ด อ.Yeadram
1,027 2
URL.หัวข้อ /
URL
แสดงลำดับแรก และลำดับสุดท้ายของข้อมูล ในรายงาน
คือผมสร้าง Report แล้วรันลำดับที่ไปเรื่อยๆ โดยใช้คำสั่งบนฟอร์ม ต้องการให้สรุปด้านล่างรายงานแสดงข้อมูลลำดับแรก และลำดับสุดท้ายของหน้า ในแต่ละรายงาน ตัวอย่าง
--------------- หน้าแรก
1 aaaa
2 bbb
3 ccc
4 ddd
5 eee
6 ffff
----------------------- ให้แสดง "ลำดับที่ 1 -6"
-------------- หน้าที่ 2
7 aaaa
8 bbbb
9 ccccc
10 dddddd
----------------------- ให้แสดง "ลำดับที่ 7 -10"
--------------- หน้าแรก
1 aaaa
2 bbb
3 ccc
4 ddd
5 eee
6 ffff
----------------------- ให้แสดง "ลำดับที่ 1 -6"
-------------- หน้าที่ 2
7 aaaa
8 bbbb
9 ccccc
10 dddddd
----------------------- ให้แสดง "ลำดับที่ 7 -10"
2 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R18307
Private F As Integer
Private L As Integer
Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
TxtFirst = F
TxtLast = L
End Sub
Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
F = 9999
L = 0
End Sub
Private Sub ÃÒÂÅÐàÍÕ´_Format(Cancel As Integer, FormatCount As Integer)
If TxtrunNumber < F Then F = TxtrunNumber
If TxtrunNumber > L Then L = TxtrunNumber
End Sub
**** ได้แล้วครับ ขอบคุณครับ
Private L As Integer
Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
TxtFirst = F
TxtLast = L
End Sub
Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
F = 9999
L = 0
End Sub
Private Sub ÃÒÂÅÐàÍÕ´_Format(Cancel As Integer, FormatCount As Integer)
If TxtrunNumber < F Then F = TxtrunNumber
If TxtrunNumber > L Then L = TxtrunNumber
End Sub
**** ได้แล้วครับ ขอบคุณครับ
Time: 0.3427s
ใน OnFormat event ของ Page Header section ให้กำหนด F = 9999 (หวังว่าข้อมูลคงไม่มากกว่า 9999 รายการนะครับ) และ L = 0
ใน OnFormat event ของ Detail section ใส่โค้ด (สมมุติว่า N คือชื่อเท็กซ์บ็อกซ์ที่แสดงเลขรัน)
If N < F then F = N
If N > L then L = N
ใน OnFormat event ของ Page Footer section คุณก็สั่งพิมพ์คำพูดที่ต้องการจากค่า F และ L