我的listview和数据库中的一个表相连,我现在想把ListView里面的数据读出来,比如读出某行某列的数据。请问该怎么编压,谢谢。下面是我连数据库的代码:Set RS = DBConnection.Execute("SELECT FROM TIME_LIMIT WHERE EXECUTE_STATE=0 AND CASE_ID=" & Tag)
List1.ListItems.Clear
While Not RS.EOF
Set Item = List1.ListItems.Add(, "I" & RS("ID"), RS("TIME_LIMIT"))
Item.SubItems(1) = CASE_STATE.CODE2NAME(RS("STATE_CODE"))
Item.SubItems(2) = CURRENCY_CODE & format(RS("FEE"),"0.00")
Item.Checked = True
RS.MoveNext
Wend
List1.ListItems.Clear
While Not RS.EOF
Set Item = List1.ListItems.Add(, "I" & RS("ID"), RS("TIME_LIMIT"))
Item.SubItems(1) = CASE_STATE.CODE2NAME(RS("STATE_CODE"))
Item.SubItems(2) = CURRENCY_CODE & format(RS("FEE"),"0.00")
Item.Checked = True
RS.MoveNext
Wend
Text1(2).Text = Item.SubItems(2)直接引用就可以了。
listview1.listitem(i).subitems(t)
Dim ItemX As ListItem
If ListView1.ListItems.Count <= 0 Then Exit Sub
On Error Resume Next
Set ItemX = Item
If ItemX Is Nothing Then Exit Sub
' DWID = ItemX.Text
Text1(1).Text = ItemX.SubItems(1)
Text1(2).Text = ItemX.SubItems(2)End Sub你再试试,我是用ItemClick事件响应的