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

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等等。
我想问一下正确的写法应该是什么？谢谢了。

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

你可以尝试这样做：

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

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

显示样子可能是：

1—