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

dhn46

Hướng tới tương lai
Tham gia ngày
1 Tháng ba 2011
Bài viết
3,250
Được thích
3,839
Điểm
560
Nơi ở
Hải Phòng
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!
 

Hai Lúa Miền Tây

❆❆❆❆❆❆❆❆
Thành viên BQT
Administrator
Tham gia ngày
18 Tháng ba 2008
Bài viết
7,623
Được thích
14,510
Điểm
1,910
Nơi ở
Tp.HCM
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

dhn46

Hướng tới tương lai
Tham gia ngày
1 Tháng ba 2011
Bài viết
3,250
Được thích
3,839
Điểm
560
Nơi ở
Hải Phòng
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!
 

Hai Lúa Miền Tây

❆❆❆❆❆❆❆❆
Thành viên BQT
Administrator
Tham gia ngày
18 Tháng ba 2008
Bài viết
7,623
Được thích
14,510
Điểm
1,910
Nơi ở
Tp.HCM
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:
Top Bottom