Tùy chọn
Làm sao để VB hiểu được tiếng việt có dấu font Unicode
- Làm sao để VB hiểu được tiếng việt có dấu font Unicode
-
Làm sao để VB hiểu được tiếng việt có dấu font Unicode
leminh > 11-03-14, 04:18 PM
Tôi có 1 CSDL dạng font Unicode, nhưng khi viết code xử lý sự kiện trong phần chọn, select case " ví dụ " để thực thi thì VB không hiểu. Hay là dùng code chuyển font chữ từ Unicode sang Vni. Xin các bạn hỗ trợ giúp, cảm ơn.[/size] -
RE: Làm sao để VB hiểu được tiếng việt có dấu font Unicode
cpucloi > 11-03-14, 08:03 PM
Cái này trên diễn đàn đã có rồi mà bạn.
Mình hay làm ntn:
tạo bảng VD: tbl_sys_msg
gồm: ID, Msg, ....
tương ứng chẳng hạn: 1, Ví dụ
khi đó bạn kết hợp hàm Dlookup để viết vào lệnh
Select Case forms!tenform!tentxtbook
Case is = Dlookup("Msg","tbl_sys_msg","ID=1")
lệnh gì đó
Case is = Dlookup("Msg","tbl_sys_msg","ID=2")
.....
End Select
Thử xem sao nhé.
-
RE: Làm sao để VB hiểu được tiếng việt có dấu font Unicode
leminh > 12-03-14, 11:21 AM
Trước hết xin cảm ơn bạn cpucloi đã giúp đỡ, nhưng chắc do phần diễn giải vấn đề của mình chưa rõ nên chưa giải quyết được vấn đề của mình. Mình xin trình bày lại cụ thể 1 chút nhé, mong các bạn thông cảm và giúp đỡ mình.
Mình có 1 table dạng font unicode tên là tblPHAPLY, trong đó có field PHAPLY và PHAPLYS_DIENGIAI như thế này:
PHAPLY PHAPLY_DIENGIAI
TC Diện tạm cư
ĐC Được cấp
ĐCCN Được cấp chuyển nhượng
TĐC Tái định cư
CĐ Theo chỉ đạo
Nhưng khi mình viết sự kiện (event) như thế này:
Private Sub cboPhapLy_Change()
Select Case cboPhapLy
Case "?C", "CT", "C?", "CV223", "CV35"
txtQDCAP.Enabled = True
txtNGAYCAP.Enabled = True
txtNOICAP.Enabled = True
TxtQDxuly.Enabled = False
TxtNgayQDxuly.Enabled = False
TxtNoicapQDxuly.Enabled = False
TxtQDsangnhuong.Enabled = False
TxtNgayQDsangnhuong.Enabled = False
TxtNoicapQDsangnhuong.Enabled = False
Case "?CCN"
txtQDCAP.Enabled = True
txtNGAYCAP.Enabled = True
txtNOICAP.Enabled = True
TxtQDxuly.Enabled = False
TxtNgayQDxuly.Enabled = False
TxtNoicapQDxuly.Enabled = False
TxtQDsangnhuong.Enabled = True
TxtNgayQDsangnhuong.Enabled = True
TxtNoicapQDsangnhuong.Enabled = True
End Select
End Sub
Thì nó không hiểu ở chỗ case "ĐCCN" và case "ĐC" và case "CĐ" để thực thi.
Xin cảm ơn. -
RE: Làm sao để VB hiểu được tiếng việt có dấu font Unicode
cpucloi > 12-03-14, 11:53 AM
Bạn thay "ĐCCN" = 1, .... đi xem nào, hoặc bạn định nghĩa nó là "DCCN" để tránh xung đột nhé (như nhau cả mà bạn ơi!)