又是简单问题,如何得到一个report风格的ListView的某个Item的第二个SubItems的Text?

Question

第二个SubItems的Text应该是
sName = itmX.subItems(2)

Answer 1

直接用MsgBox (itmX.SubItems(1).Text) 找原因

Answer 2

MsgBox itemX.ListSubItems(1).Text 就行啦！

Answer 3

Dim itmX As ListItem
Set itmX = List1.SelectedItem
sName = itmX.SubItems(1).Text  <-------这里错了应该是--|
MsgBox (sName)                                         |
                            sName = itmX.SubItems(1)<--|
                                                        

Answer 4

   lblDeposit.Caption = frmMain.lstvOpenAccount.ListItems(frmMain.intSelectItem).ListSubItems(4).Text