กระทู้เก่าบอร์ด อ.Yeadram
2,754 4
URL.หัวข้อ /
URL
ผมมีปัญหาการ preview รูปใน report ครับ
ผมขอเล่าก่อนนะครับ พอดี report ที่ผมทำเป็นการดึงข้อมูลหลาย ๆ record มาแสดงครับ ซึ่งมีการแสดงรูปด้วย ทีนี้ บาง record ของผมไม่มีรูปอะครับมีค่าเป็น null พอรันแสดง report พบว่ามันเอารูปก่อนหน้ามาแสดงเป็นรูปองมันเองอะครับ
ตัวอย่างนะครับ
01/01/2552 รูปภาพ 1
02/01/2552 รูปภาพ 2
03/01/2552 null
04/01/2552 รูปภาพ 3
ทีนี้พอรัน report จะเป็น
01/01/2552 รูปภาพ 1
02/01/2552 รูปภาพ 2
03/01/2552 รูปภาพ 2 <มันควรไม่แสดงรูปอะครับ ดันแสดงรูปก่อนหน้าเฉยเลย>
04/01/2552 รูปภาพ 3
script ผมเขียนตามด้านล่างอะครับ ผมเก็บข้อมูลรูปเป็น path นะครับ ไม่แน่ใจว่าต้องเขียนอะไรเพิ่มไหม ?
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
On Error Resume Next
If IsNull(Me.txtPicture) Then
Me.Form_Image.Picture = ""
Else
Me.Form_Image.Picture = Me.txtPicture
End If
End Sub
T_T ช่วยแนะแนวทางหน่อยนะครับ
ขอบคุณมาก ๆ ครับ เมลผม sony_oat@hotmail.com นะครับ
ตัวอย่างนะครับ
01/01/2552 รูปภาพ 1
02/01/2552 รูปภาพ 2
03/01/2552 null
04/01/2552 รูปภาพ 3
ทีนี้พอรัน report จะเป็น
01/01/2552 รูปภาพ 1
02/01/2552 รูปภาพ 2
03/01/2552 รูปภาพ 2 <มันควรไม่แสดงรูปอะครับ ดันแสดงรูปก่อนหน้าเฉยเลย>
04/01/2552 รูปภาพ 3
script ผมเขียนตามด้านล่างอะครับ ผมเก็บข้อมูลรูปเป็น path นะครับ ไม่แน่ใจว่าต้องเขียนอะไรเพิ่มไหม ?
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
On Error Resume Next
If IsNull(Me.txtPicture) Then
Me.Form_Image.Picture = ""
Else
Me.Form_Image.Picture = Me.txtPicture
End If
End Sub
T_T ช่วยแนะแนวทางหน่อยนะครับ
ขอบคุณมาก ๆ ครับ เมลผม sony_oat@hotmail.com นะครับ
4 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R01299
ลองแก้แล้ว ได้ผลครับ ขอบคุณมาก ๆ ครับ ถามเพิ่มเติมหน่อยนะครับ ถ้าสมมติว่า ผมมี path รูปนั้นอยู่ แต่ผมย้ายรูปออกจาก path นั้นไปแล้ว ทีนี้อยากให้มันไม่แสดงรูปอะครับ ต้องเขียนเชคเพิ่มยังไงอะครับ ตอนผม query ดู มันก็เอารูปก่อนหน้ามาแสดงอีก ทั้ง ๆ ที่ไม่เจอข้อมูลน่าจะไม่แสดงรูปอะครับ งง จริง ๆ T__T
3 @R01300
ก็ต้องตรวจว่ามีไฟล์นั้นอยู่จริงหรือไม่เสียก่อนด้วยฟังก์ชั่น Dir( ) ครับ
If Nz(Me.txtPicture, "") = "" Then
Me.Form_Image.Picture = ""
Me.Form_Image.Visible = False
Elseif Dir(Me.txtPicture) = "" Then
Me.Form_Image.Picture = ""
Me.Form_Image.Visible = False
Else
Me.Form_Image.Picture = Me.txtPicture
Me.Form_Image.Visible = True
End If
If Nz(Me.txtPicture, "") = "" Then
Me.Form_Image.Picture = ""
Me.Form_Image.Visible = False
Elseif Dir(Me.txtPicture) = "" Then
Me.Form_Image.Picture = ""
Me.Form_Image.Visible = False
Else
Me.Form_Image.Picture = Me.txtPicture
Me.Form_Image.Visible = True
End If
4 @R23279
Time: 0.3314s
If Nz(Me.txtPicture, "") = "" Then
Me.Form_Image.Picture = ""
Me.Form_Image.Visible = False
Else
Me.Form_Image.Picture = Me.txtPicture
Me.Form_Image.Visible = True
End If