vb.net 如何遍历所有listbox并向每个listbox添加item

答案:2 悬赏:80 手机版

解决时间 2021-02-24 01:20

提问者网友：欲望失宠
2021-02-23 01:34

For Each r As Control In TabPage8.Controls

If TypeOf (r) Is ListBox Then

For i = 1 To ds.Tables(0).Rows.Count

r.Items.Add(ds.Tables(0).Rows(i - 1)("设备型号"))

Next

End If
Next
tabpage8里面有若干listbox，我想用上面的代码来向每个listbox添加选项，但是运行后提示items不是control的成员。
改成如下
For Each r As listbox In TabPage8.Controls

For i = 1 To ds.Tables(0).Rows.Count

r.Items.Add(ds.Tables(0).Rows(i - 1)("设备型号"))

Next

Next
结果又提示groupbox 不能转化为listbox，tabpage8里面不光是listbox，里面还有groupbox，textbox，label等等。
我想问一下正确的写法应该是什么？谢谢了。

最佳答案

五星知识达人网友：胯下狙击手
2021-02-23 03:06

因为它是网银的驱动，当网银没插入时，自然不会有任何提示，因为网银的驱动让我装在了。外置优盘里。外置的u盘，要想运行,系统，不依靠别的介质是不行的。

全部回答

1楼网友：不如潦草
2021-02-23 03:22

你可以尝试这样做：

listbox1.items.add(mydatareader("id").tostring()+"—"+mydatareader("pid").tostring()+"—"+mydatareader("name").tostring())

窍门：把若干个字段拼接起来才可以显示在一个listbox中，同时希望listbox有足够的宽度。

显示样子可能是：

1—

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息