LISTbox问题

十三笑

LISTBOX问题，求助！

lcluck2002

TextBook控件没有ListIndex属性。

liulang0808

https://club.excelhome.net/thread-1451605-1-1.html
这个比较全面，可以参考下

洋务德雷

1. Private Sub CommandButton2_Click() '//修改
   
2.     Dim arr, k&
   
3.     k = Me.lstBooks.ListIndex + 2 '这里修改了
   
4.     With Sheet1
   
5.         .Cells(k, 1) = txtBookId.Text
   
6.         .Cells(k, 2) = txtBookName.Text
   
7.         .Cells(k, 4) = txtPrice.Text
   
8.         .Cells(k, 3) = txtAuthor.Text
   
9.         .Cells(k, 5) = txtCBS.Text
   
10.     End With
    
11. '    Call 更新
    
12.     txtBookId.Text = Sheet1.Cells(k, 2).Value
    
13. End Sub

复制代码

你这里的问题挺多的。目前只修改了一处。需要其他联系我吧，需要了解你的具体需求

十三笑

洋务德雷 发表于 2023-1-15 15:04
你这里的问题挺多的。目前只修改了一处。需要其他联系我吧，需要了解你的具体需求

如何点击LISTBOX中的数据 双击弹窗？

十三笑

liulang0808 发表于 2023-1-15 10:51
https://club.excelhome.net/thread-1451605-1-1.html
这个比较全面，可以参考下

这个我看过，尝试过，但失败了。

洋务德雷

十三笑 发表于 2023-1-15 16:38
如何点击LISTBOX中的数据 双击弹窗？

点击LISTBOX中的数据做什么？在这里一个问题一个问题的问，不如直接联系我，彻底把问题说清楚，或者在这里把问题罗列清楚，请高手们一次性帮你解决掉。

十三笑

洋务德雷 发表于 2023-1-15 21:24
点击LISTBOX中的数据做什么？在这里一个问题一个问题的问，不如直接联系我，彻底把问题说清楚，或者在这 ...

就是查询后，再在listbox双击要看的数据可弹出一个窗体，窗体内是该数据的详细信息，可以直接对该信息进行修改啊