Mã ListView này sai ở đâu vậy!Help

[kylobytes]

Mình hiện thị dữ liệu dùng ListView nhưng mà không biết sai ở đâu. Nó báo lỗi "380" Invalid Peoperty Value:
Bảng Account(UserName,Password,Type) Nhưng mà mình không muốn cho nó hiện Password nên chỉ Select UserName và Type thôi.

Public Sub LayDS()
Set Rcs = New ADODB.Recordset
Dim SQL As String
Dim List As ListItem
ListTK.ListItems.Clear
SQL = "Select UserName,Type From Account"
Rcs.Open SQL, Conn, adOpenForwardOnly, adLockReadOnly
Do Until Rcs.EOF
Set List = ListTK.ListItems.Add(, , Rcs!UserName)
List.SubItems(1) = Rcs!Type
Rcs.MoveNext
Loop
Rcs.Close
End Sub

Private Sub Form_Load()
LayDS
End Sub

[huytranaz]

Mình hiện thị dữ liệu dùng ListView nhưng mà không biết sai ở đâu. Nó báo lỗi "380" Invalid Peoperty Value:
Bảng Account(UserName,Password,Type) Nhưng mà mình không muốn cho nó hiện Password nên chỉ Select UserName và Type thôi.

Public Sub LayDS()
Set Rcs = New ADODB.Recordset
Dim SQL As String
Dim List As ListItem
ListTK.ListItems.Clear
SQL = "Select UserName,Type From Account"
Rcs.Open SQL, Conn, adOpenForwardOnly, adLockReadOnly
Do Until Rcs.EOF
Set List = ListTK.ListItems.Add(, , Rcs!UserName)
List.SubItems(1) = Rcs!Type
Rcs.MoveNext
Loop
Rcs.Close
End Sub

Private Sub Form_Load()
LayDS
End Sub

Vấn đề của bạn là chưa Add Column cho ListView. Lỗi này phát sinh ngay tại dòng: List.SubItems(1) = Rcs!Type. Bạn có thể dùng property page của ListView để add column hoặc dùng code (ListTK.ColumnHeaders.Add).

Chúc bạn thành công,

[kylobytes]

Thank. Tui đã làm được rùi. Ông huytranaz có nick Y!M không. Có gì tui muốn hỏi ông. Nick tui: kylobytes

[huytranaz]

Thank. Tui đã làm được rùi. Ông huytranaz có nick Y!M không. Có gì tui muốn hỏi ông. Nick tui: kylobytes

Post thẳng lên đây đi, mình hay vào lắm. Còn Y! thì mình ít khi vào lắm. ;)

[kylobytes]

Ông vào xem tui bài này cái.
http://ddth.com/showthread.php?t=208644