Định dạng textbox trong report theo giá trị Field

Liên hệ QC

dhn46

Hướng tới tương lai
Tham gia
1/3/11
Bài viết
3,252
Được thích
3,868
DHN46 Xin chào các cô bác, anh chị GPE. GPE cho dhn46 hỏi vấn đề: làm thế nào để định dang textbox trong report theo giá trị fileds của nó

Ví dụ: - field có giá trị 1 thì backcolor textbox là màu vàng
- field có giá trị 2 thì backcolor textbox là màu xanh

Xin cảm ơn!
 
DHN46 Xin chào các cô bác, anh chị GPE. GPE cho dhn46 hỏi vấn đề: làm thế nào để định dang textbox trong report theo giá trị fileds của nó

Ví dụ: - field có giá trị 1 thì backcolor textbox là màu vàng
- field có giá trị 2 thì backcolor textbox là màu xanh

Xin cảm ơn!

Bạn dùng code sau cho report nhé

Mã:
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)   
 SL.BackStyle = 1
Select Case SL
    Case 1
        SL.BackColor = vbYellow
    Case 2
        SL.BackColor = vbGreen
    Case 5
        SL.BackColor = vbRed
    Case Else
        SL.BackColor = vbWhite
End Select


End Sub

Code trên chỉ là ví dụ cho nhiều trường hợp, còn với 2 điều kiện như bạn thì có thể dùng If
 

File đính kèm

  • CF_Report.zip
    12.6 KB · Đọc: 17
Em cảm ơn nah nhiều (anh Doofootwear phải không ạ).
Cái lỗi mà em bị do em sử dụng mã màu : SL.BackColor = 5462123
Vậy các anh chị cho hỏi thêm 1 câu nữa: nếu em muốn sử dụng mã màu thì em phải làm như thế nào ạ?

Em cảm ơn!
 
Em cảm ơn nah nhiều (anh Doofootwear phải không ạ).
Cái lỗi mà em bị do em sử dụng mã màu : SL.BackColor = 5462123
Vậy các anh chị cho hỏi thêm 1 câu nữa: nếu em muốn sử dụng mã màu thì em phải làm như thế nào ạ?

Em cảm ơn!

Sử dụng bình thường mà bạn

Mã:
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)    
SL.BackStyle = 1
    
Select Case SL
    Case 1
        SL.BackColor = 65535 'Vang
    Case 2
        SL.BackColor = 65280 ' Xanh
    Case 5
        SL.BackColor = 255 'Do
    Case Else
        SL.BackColor = 16777215 'Trang
End Select


End Sub

P/S: domfootwear là ai, Hai Lúa Miền Tây là ai? ẹc, ẹc...
 
Lần chỉnh sửa cuối:
Web KT
Back
Top Bottom