Ðề: Lỗi không tạo được TreeView
Cái của bạn:
Do Until T10.EOF
Select Case T10!mucDich
Case ban
Set nodex = JobTree.Nodes.Add("ND1", tvwChild, "MS" & T10!maNha, T10!quanHuyen, 2)
Case thue
Set nodex = JobTree.Nodes.Add("ND2", tvwChild, "MS" & T10!maNha, T10!quanHuyen, 2)
End Select
T10.MoveNext
Loop
Sửa lại là:
Do Until T10.EOF
Select Case T10!mucDich
Case "ban"
Set nodex = JobTree.Nodes.Add("ND1", tvwChild, "MS" & T10!maNha, T10!quanHuyen, 2)
Case "thue"
Set nodex = JobTree.Nodes.Add("ND2", tvwChild, "MS" & T10!maNha, T10!quanHuyen, 2)
End Select
T10.MoveNext
Loop
========
Bạn lưu ý là tên của 1 node phải có kiểu là chuỗi.
Mặc dù field maNha của bạn có kiểu là chuỗi nhưng giá trị của nó lại là mang hình dáng của số ("4847", "4958". "9085" ...) do đó khi ráp vào thì VB tài lanh tài lọt lại tính nó là kiểu số.
Cách tốt nhất vẫn là mã hoá maNha với ít nhất 1 ký tự chữ ở đầu.
Truờng hợp nó là mang dạng số như của bạn thì nối thêm vào trước 1 chữ để đảm bảo VB sẽ hiểu đó là chữ.
Khi xử lý node được click ta sẽ trích ngược từ tên của node đó ra maNha mong muốn.